DRIVE FUNCTION TIMBER €P DZTUG A DLA MAR 1977 
MD-11-DZTUG-A copyright 1977 “HFOGED 
FICHE 17 OF 1. MADE IN USA 





HDR LDZTUGASEG 


BOl 


00010000 770224 POP1O 411 


Product Code: MAINDEC-11-DZTUG-A-D 

Product Name: TMO2/TUI6J ORIVE FUNCTION TIMER 
Date Created: JANUARY 1977 

Maintainer: Diagnostic Group 

Author: R. BARNES 


THE INFORMATION IN THIS DOCUMENT IS ae go TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSU 


MES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THis. DOCUMENT. 


THE SOFTWARE Blige IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR <a m ACCORDANCE WITH THE 
TERMS GF SUCH UICEN SE. 


DIGITAL EQUIPMENT CORPORATION ASSUNES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1977 BY DIGZTAL EQUIPMEN CORPORATION 


IDENTIFICATION 


SEG 000! 


COl 


TMQ2 DRIVE FUNCTION TIMER Page 2 
Table of Contents SEG 0002 


TABLE OF CONTENTS 


ABSTRACT 
Chapter 1 REQUIREMENTS 
1.1 EQUIPMENT 
1.2 MEMORY STORAGE 
1.3 PRELIMINARY PROGRAMS 
Chapter 2 LOADING AND STARTING PROCEDURE 
"2.1 ACTLL OPERATION 
Chapter 3 SWITCH SETTINGS 
Chapter 4 ERRORS 
; 4.1 ERROR TYPEOUT FORMAT (HARDWARE) 
4.@ ERROR TYPEOUT FORMAT (FUNCTION OUT OF RANGE) 
Chspter S SUBROUTINE ABSTRACTS 
Chapter & MISCELLANEOUS 
&.1 STACK POINTER 
6.2 EXECUTION TIME 
Chapter 7 PROGRAM DESCRIPTION 
7.1 FUNCTION TIME DOCUMENT 
7.2 TEST SEQUENCE 7 RELATED ADJUSTMENTS 7 ASSOCIATED HARDWARE 
7.3 TEST DESCRIPTIONS 


DOI 


TMO2 ORIVE FUNCTION TIMER Page 3 
Abstract SEG CO02 


ABSTRACT 


Program DZTUG measures the time required and GAP 
sizes produced by the TMOc/TUIET Magtape 
Crive/Slave. 


THE TEST WILL CHECK BOTH THE LOGIC GENERATED 
TIME DELAYS, AND THE DISTANCES TRAVLED BY THE 
TAPE IN RESPONSE. 


ACTUAL TAPE SPEED MAY ALSO BE CHECKED BY USING 
THE SPEED TESTS WITH AN 800 BPI SKEW TAPE. + 


DEVICE ERRORS ARE CHECKED AND PRINTED AS_THEY 
OCCUR. IF THE ERROR IS DATA RELATED(PARITY; ETC) 
THEY ARE PRINTED AS SOFT ERRORS. 


IF THE TIME CHECK IS OUT OF RANGE, IT IS PRINTED 
AS AN OUT OF RANGE ERROR. 


EQ] 
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Requirements 


CHAPTER 1 
REQUIREMENTS 


PDP-11 Family Central Processor with 4K memory with up to 64 TMO2/TU1BIJ 
controller/magtape stations. 


‘- ” exxPROGRAN CAN BE_RUN ON A eg THAT DOES NOT HAVE A HARDWARE SWITCCH REGISTER. 


FTWARE SWITCH REGISTER (SWREG) LOC. 176 IS AUTOMATICALLY ct ead REFER TO 
CHAPTER 3.FOR DESCRIPTION OF HOW TO DYNAMICALLY LORD LOC.176)% 


1.1 OPTIONAL EQUIPMENT USED 


l. none 


1.2 STORAGE 


Program loads and runs in the first 4K of memory. 


1.3 PRELIMINARY PROGRAMS (TO ASSURE HARDWARE OPERATION) 


MAINDEC-11-DZTUC CONTROL LOGIC TEST 
MAINDEC-11-DZTUB BASIC FUNCTION TEST 


SEQ 0004 


FOL 
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CHAPTER 2 
LOADING AND STARTING PROCEDURE 


The procedure is as follows: 


Load program using the Absolute Loader 
Load address = 20 

Set operating switches 

Press start 


#£*IF THE SOFTWARE SWITCH REGISTER IS USED THEN THE PROGRAM WILL TYPE SWR=XXXXXX NEW= 
THIS WILL ALLOW LOC. 176 TO BE CHANGED BEFORE THE START OF THE TESTING.(REFER TO CHAPTER 3 FOR OPTIONS) 


Program will request DRIVE (TMO2) and SLAVE (TUL6J) numbers to be 
tested. ype DRIVE/SLAVE numbers with a comma (,) between each 
DRIVE/SLAVE to be tested. 

REQUESTS FOR TAPE SPEED TESTS AND NRZ ONLY MODE WILL BE MADE. 

RESPONSE TO OE ETE ONLY REQUEST WITH A ONE (1) With CAUSE 

THE PROGRAM TO EXECUTE TEST 31 AND 32 ONLY. THIS IS ONLY WAY 

TO TEST TAPE SPEED. 

NRZ ONLY MODE WILL CAUSE THE PROGRAM TO SKIP THE 1600 BPI DATA TIME TEST. 
Type mentees U (fU) to delete line typed or rubout to delete last 
character(s). 


Program will publish times required and report errors. 


&.1 ACTI1 OPERATION 


If the program is run in Guick Verify Mode, function tests are not 
iterated. 


GOL 
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CHAPTER 3 
SWITCH SETTINGS 


IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
melee wena ete SWITCH REGISTER IS USED WHICH ALLOWS 


AME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
ONE DOES 


IF THE oie in ARE SWITCH REGISTER DOES NOT EXIST OR IF 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED. 


CONTROL: 

THIS PROGRAM ALSO SUPPORTS THe DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 

DCING THE FOLLOWING: 


1) TYPE CONTROL G <tG>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 


OF THE SOFTWARE SWITCH REGISTER. ) 


3) AFTER THE ’*NEW=’’ HAS BEEN TYPED THEN THE OPERATOR CAN DC ONE 
OF THE FOLLOWING AT THE TTY: 


A) ie A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS BETWEEN O-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE hie 
IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <tU> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2. 


SEQ O00E 


SWiS 
(100990) 


SW14 
‘O04000) 
SW13 
(020000 
SW11 
(004000) 
SWid 
(002000) 
SWO9 
(001000) 
SWO7 
(900200) 
SWO6 
(000106) 


SW5-6 


HALT ON ERROR 


LOOP SUBTEST 


INHIBIT 
FUNCTION TIME 
PUBLICATION 


RING BELL 

ON ERROR 
HALT AFTER 
SELECTED TEST 
CONTINUCUS 
CYCLE 


TEST SELECT 


H01 


This switch when set will halt the 
rocessor when an error is detected. 
he PC+2 and PSW at the time of the 

error is stored on the stack. Pressing 

continue will cause the error to be 
typed (if selected) and further testing 
resumed. 


This switch when set loops the current 
subtest regardless of error condition. 


This switch when set inhibits error 


typeout. 
This switch when set causes each subtest 
to be executed only once. (Initial 


Startup Only). 


This switch when set will inhibit the 
pc tation of the function times. (See 
hapter 8.) 


This switch when set will ring the bell 
on the TTY when an error is detected. 


This switch when set will cause the 
program to HALT after the test selected 
in SWOS-SWOO is executed. 


THIS SWITCH WHEN SET WILL CAUSE THE pet 


PROGRAM TO RUN CONTINUOUSLY UNTIL wre 


STOPPED BY THE OPERATOR. 


THE PROGRAM WILL HALT AFTER EXECUTION 
OF THE TEST SELECTED WHEN SWO?TS SET. 


SEG 0007 
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CHAPTER 4 
ERRORS 


Two types of errors are detected by this program, hardware errors and 
incorect function times. 


4.1 ERROR TYPEOUT FORMAT (HARDWARE): DATA RELATED ERRORS (IE: PARITY ERROR) ARE PRINTED AS SOFT ERRORS 
AND HAVE NO EFFECT ON TIME. 


ot 


TEST # XXXXXX DEVICE ERROR 


CSsl WE BA FC cSe DS ER1 
aaaaaa bbbbbb ceccce dddddd eeeeece ffffff gggggq 


where: 


er 


XXXKXXX = T mb 
I Contents of Tape Register 172440-1724S4 


Nu 
ARPARA-II = 


est 
III 
4.2 ERROR TYPEOUT FORMAT (FUNCTION TIME OUT OF RANGE) 


TEST # XXXXXX OUT OF RANGE ERROR 
RANGE = <RAARAAR-BBBBBB> ACTUAL = CCCCCC 
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CHAPTER 5S 
SUBROUTINE ABSTRACTS 


S.1 .SCOPE 

The SCOPE Routine is called by the scope (EMT) instruction at the 
piart of each subtest. The .Scope routine performs the ong 
unctions: 


1. Loads RS with base address 
Types Time Line <SWO8> 
Provides continuous loop <SW14> 
Moves function time into table 
Outputs Line Item if selected 
Provides HALT on test <SWO7> 
Delays 350MS before starting test 
Init’s Drive/Slave 
9. Clears the error flag (ERFLG) 
The routine monitors SW14, SW11, SW10, SWO8, and SWO7. 


##*THIS ROUTINE WILL CHECK FOR CNTL_G<tG> BY DOING A JSR PC,CKSWR 
(REFER TO CHAPTER 3 FOR DESCRIPTION). 


£.2 PUBLISH 
ine Publish Routing ts called from the Scope Routine if SW 


10 i 
O (Publish Time Document). The routine will print a “SING NGLE 
ITEM” gach time it 1s called. 


ae no wes wf 


equal 
CINE 


SEG C0c9 
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Subroutine Abstracts 


S.3 .MLT 


The HLT Routine is called by the HLT (Trap) instruction when an error 
is detected. A HLT (TRAP) instruction formats the error information 
ag shoyn in Sec 4.1. A HLT+1 (TRAP+1) formats tHE ERROR AS SHOWN IN 


##4THIS ROUTINE WILL CHECK FOR A CNTL G <tG> BY DOING A JSR PC,CKSWR 
‘REFER TO CHAPTER 3 FOR DESCRIPTION)> 


SEG 00:0 


LO 
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CHAPTER 6 
MISCELLANEOUS 


6.1 STACK POINTER 


The Stack Pointer is initailly set to 500 and is reset to SOO by the 
COPEA Routine. 


6.2 EXECUTION TIME 
When SWl1=1° (Inhibit Iterations) the time required is 2 min. 
When SW11=0 (Iterate Subtests) the time required is 9 min. 
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CHAPTER 7 
PROGRAM DESCRIPTION . 


7.1 SAMPLE TIME DOCUMENT 


T 
FOR TMOe DRIVE O- TYPE SLAVE #’S TO BE TESTED 7 
TAPE SPEED TESTS ae ‘7 ~* 170) O 

NRZ ONLY? (YES/NO = 

SHE HEGEL GEE EE 
% TMO2 ORIVE FUNCTION TIMES- DRIVE # O SLAVE # 7 9 CHAN. SER. # S009 


*% 

#% FUNC TIME (SPECIFICATION) TIME (ACTUAL ) 

* WRITE FROM BOT RANGE =< 176000-172000> ACTUAL =174740 
# et START RANGE=<009500-008700> ACTUAL=009120 
Fue stiebun = Reencgueeee toniay enim age 

=¢ - = 

# nee FROM BOT RANGE =< watt ACTUAL =043580 
# READ START RANGE =< ACTUAL =002740 
eo, ee eta 
% READ V START RANGE =< 00> ACTUAL=002740 
+ READ REV SETILEDOMN Ren =< O37 po-onsauo> CTRL =O aee0 
# TURN AROUND DELAY F-R fence =<O16700-010700) ACTUAL =013600 
# TURN AROUND DELAY R-F RANGE=<016700-010700> ACTUAL=013660 
§ GAP SIZE-STOP HALF RANGE =<012900-009500> ACTUAL=012200 
# GAP SIZE-START HALF RANGE =<011800-008500> ACTUAL=010520 
4#' GAP SIZE-INTERRECORD RANGE=<014800-013700> ACTUAL=014S00 
# GAP CONSISANCY RANGE=<014000-012400> ACTUAL=013040 
* DATA TIME-200 BPI RANGE =< 024 100-023100> ACTUAL =023460 
* DATA TIME-SS6 BPI RANGE =<024000- eit ACTUAL =023350 
* DATA TIME- =« 230) ACTUAL=023400 
* DATA TIME-1E00BPI RANGE=<0251 00-024100> ACTUAL =024470 
* ERASE GAP TIME ; RANGE =< 101000-099000> ACTUAL=099510 
# WRITE FILE MARK RANGE =< 105000-103000> ACTUAL=103990 


SEG C012 


NO1 
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7.1.1 SAMPLE TIME DOCUMENT FOR TAPE SPEED TESTS 


TYPE FIRST ADDRESS OF CONTROLLER 172440 
TYPE TMO2 DRIVE #’S TO BE TESTED 0 

FOR TMGe DRIVE O- TYPE SLAVE #°S TO BE TESTED 7 

SPEED TESTS ONLY? (YES/NO = 1/0) 

Perrrerretririii titre titi ittet ttttittttitiiitiir tess 
4 TMO2 DRIVE FUNCTION TIMES- DRIVE # O SLAVE # 7 9 CHAN. SER. # S009 


TIVE (OPEC TE TATION ee 


He SBR RMENESS-ELSIR ISLE 


go 


2 “y- <¢ 


SEQ C012 


B02 
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7.2 TEST SEQUENCE WITH RELATED ADJUSTMENTS AND ASSOCIATED HARDWARE 
TEST NO. /NAME RELATED ADJUSTMENTS ASSOCIATED HARDWARE 
1. WRITE FROM BOT *NONE a #8911 ROM*M8903 ACCL CNTR 
2. WRITE START “eee ce “Beate ee 
3. WRITE SHUTDOWN x” a 
4. WRITE SETTLEDOWN x” | *MB910 SETTLEDOWN ONE SHOT 
5. READ FROM BOT e” 7 ) 4M@911 ROM*M8903 ACCL CNTR 
6. READ START : * ieee Se 
7. READ SHUTDOWN = 2? 4° 
10. READ SETTLEDOWN eo xM8910 SETTLEDOWN ONE SHOT 
11. READ REVERSE START e” xM8911 ROM*M8903 ACCL CNTR 
12. READ REVERSE SHUTDOWN x" ee" *" 
13. READ REVERSE SETTLEDOWN ‘os *M8910 SETTLEDOWN ONE SHOT 
14. TURN AROUND F-R ‘ 48911 ROM¥M8903 ACCL CNTR 
1S. TURN AROUND R-F x " eo: 4.4% 
16. GAP SIZE-STOP HALF *¥FWRD/REV SPEED-START/STOP-RAMPS CAPSTAN SERVO LOOP 
17. GAP SIZE-START HALF ¥SAME AS IN TEST 16 eo” “8 


20. GAP SIZE INTERRECORD *FWD/REY SPEED oe - 4 


TMO2 DRIVE 
el 


23 


24 


2s. 
2b. 
27. 
30. 
31. 


32. 


FUNCTION TIMER 

. GAP CONSISTENCY 

. DATA TIME 200 BPI 
. DATA TIME SS6 BPI 
DATA TIME 800 BPI 
DATA TIME 1600 BPI 
ERASE GAP TIME 
WRITE FILE MARK 
TAPE SPEED-F ORWARD 


TAPE SPEED-REVERSE 


COe 


PAGE 14 


¥SAME AS IN TEST 16 
*#TEST NUMBER 22 IS RESERVED FOR FUTURE USE 


#NONE 


% i] 


¥ oo 


*FWO SPEED 


#REVERSE SPEED 


##£24NOTE: IF TIME PROBLEMS APPEAR IN T1 THRU T30, RUN TAPE SPEED TESTS 


FIRS T2224 44% 


*WRITE CLOCK 


oe a 
~~» 

a 
g = 


¥M8911 ROM*M8903 ACCL CNTR 


& oe " ¥% oo oe oe 


*#CAPSTAN SERVO LOOP 


*CAPSTAN SERVO LOOP 


SEQ OCIS 


DOe2 
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7.3 


TEST DESCRIPTIONS: 


THE FIRST THIRTEEN (13) TESTS (T1 -_T15) ARE CHECKS OF THE 
ROM CIRCUITS IN THE TUL6J (M9811), THE ACCL COUNTER IN THE 
TMO2 (M8903), AND THE SETTLEDOWN ONE SHOT (M8910). 


Tl. WRITE FROM BOT: 


THIS TEST WILL MEASURE ne een To Rat REQUIRED TO 
MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
FROM DEAD STOP AT BOT BEFORE STARTING TO TRANSFER DATA. 


1. ASSURE TAPE IS STOPPED AT BOT. 

ISSUE A WRITE COMMAN . 

MONITOR BIT 15 OF TC (ACCL) 

Ph 3 FROM GO TO ACCL RESET IS BOT DELAY 


mcWwr 


T2. WRITE START: 


THIS TEST WILL MEASURE ACCELLERATION DELAY JUST AS IN 
thin aa THE TIME WILL BE LESS WHEN NOT STARTING 


LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 


1 

e. ISSUE A WRITE COMMAND 

3. al AE J BIT 15 OF TC (ACCL) 

e° 3 FROM GO TO RESET OF ACCL IS START DELAY 


13. WRITE SHUTDOWN: 
THIS TEST MILL MEASURE THE TINE FROM EOR (LAST CHARACTER 


START OF SETTLEDOWN TIME. THIS 
BSSURES, IN PART, A PROPER INTERROCORD GAP. 


FEENE TAPE =f Ls ns Se POSITION. ASSURE THAT IT IS STOPPED 


ESUNTER’ AND BIT 4 OF DS (SDWN) 
Ae Ry ASSERTION OF SDWN IS 


wo £wrme- 
Pin 
Omasn 
i Ft 
no 
Sp 
" 
eae 
os 
Ons 


eae SHUTDOUN 1 


we 
peat 


SEG OO1E 


E02 


TY. WRITE SETTLEDOWN: 


Tats Is TEST. Wl WILL MEASURE THE SLOWDOWN TIME. THE TIME 
SLOWDOWN UNTIL art TAPE SHOULD 
“Tppion Fst TIONING of HET IA MNE Oe BES Fince 
THE Teg Sr a ind NaN BR TEST 


LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
ISSUE A WRITE COMMAND 

MONITOR BIT 4 OF DS (SDWN 

TIME FROM SET 3 SDWN TO RESET OF SDWN IS THE 

cece DELA 


wm fWwrueE 


TS. READ FROM BOT 
THIS MEASUREMENT IS MADE EXACTLY AS THE WRITE 
MEASUREMENT IN Tl. USE THE SAME RECORD THAT WAS 
WRITTEN IN Tl. 

oe BOT 


(ACCL) 
2 FROM GO TO ACCL is BOT DELAY 


Oncwmue- 
= 
oO 
=z 
-_ 
“4 
oO im 
xz 
ow 
tH 
~ 
_— 
uy 
oO 
vy 
= 
oO 


SEG 0017 


Ts. 


FOe 


READ START 


THIS TEST MEASURES THE SAME DELAY AS IN Te. 


17. 


BRUTE A 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE s STOPPED. 


S AD FORWARD OF THE RECORD WRITTEN IN STEP 1 
HORT TOR BIT 15 OF TC (ACCL) 
LIN FROM GO TO RESET OF ACCL IS START DELAY 


READ SHUTDOWN: 


THIS TEST MEASURES THE SAME DELAY AS IN T3. 


i 
e. 
3. 
4 
S. 


WRITE 1 RECORD, THEN BACKSPACE OVER IT eo TAPE IS STOPPEC. 


READ FORWARD THE a tat + S Ot gene n IN STEP 1 


OR FRAME C DS_(SDWN 
TM o4'4 FCSRECORD SI2e (LAST FRAME READ) "TO SDWN=1 
itt SHUTDOWN TIME. 


ss 


T10. READ SETTLEDOWN: 
THIS TEST MEASURES THE SAME DELAY AS IN TH. 


A. 


mM £Wru 


WRITE 1 RECORD, THEN BACKSPACE OVER i, 9 ation TAPE IS STOPPED. 


READ ares THE RECORD WRITTEN IN STE 

MONITOR BIT F OS 

TIME FROM ot oF SDWN TO RESET OF SOWN IS THE 
- ema DELAY 


SEQ 0018 


GOe 
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Til. READ REVERSE START: 
we. i WILL MEASURE THE START DELAY IN THE REVERSE 


WRITE 1 RECORD, ASSURE TAPE_IS STOPPED. 

READ REVERSE THE er WRITTEN IN STEP 1. 

MONITOR BIT 15 OF _T L) 

es he FROM GO TO RESET OF ACCL IS THE START TIME 


UNE Gore oO 
*. 28 «@ . be 


Tlé. READ REVERSE SHUTDOWN 


THIS TEST WILL MEASURE THE READ SHUTDOWN IN THE REVERSE 
DIRECTION. 


WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 
READ REV ERSE THE RECORD WRITTEN IN STEP 1. 
MONITOR FRAME COUNTER AND BIT 4 OF DS (SDWN 
TIME FROM FC=RECORD SIZE (LAST FRAME READ 10 SDWN=! 
IS THE READ REVERSE SHUTDOWN TIME. 


uw wre 


T13. READ REVERSE SETTLEDOWN: 


THIS TEST WILL MEASURE THE READ SETTLEDOWN IN THE REVERSE 
DIRECTION. 


WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

READ REVERSE THE ee D a IN STEP 1. 
MONITOR BIT 4 OF DS (SD 

TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 
Reo DELAY 


un Wr 


T14. TURN AROUND DELAY-FORWARD TO REVERSE 


THIS TEST WILL MEASURE THE TIME REQUIRED FOR THE TAPE 
TO CHANGE DIRECTION. 


OF TC (ACCL) 
TIME FROM GO OF _READ REVERSE TO RESET OF ACCL IS 
ie TURNAROUND TIME. 


1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
2. ISSUE A WRITE FORWARD OF AT LEAST 20 FRAMES 
3. MONITOR BIT 7 OF DS (DRY) 
4. WHEN DRY IS ASSERTED (EOR), IMMEDIATELY ISSUE A 
READ REVERSE OF THAT RECORD. 
5. MONITOR BIT 15 OF 
7, 


. 


HO0e2 
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TiS. TURN AROUND DELAY-REVERSE TO FORWARD 


THIS TEST WILL MEASURE THE TIME AS IN T14, BUT IN THE 
OPPOSITE DIRECTION. 


WRITE 1 RECORD. 
ASSURE TAPE IS STOPPED 
READ REVERSE 
MONITOR DRY (BIT 7 OF DS) 
WHEN DRY = 1, ISSUE A READ FORWARD 
MONITOR AGL. (BIT 15 TC) 
oe FROM GO FORWARD TO ACCL = 1 IS THE TURN AROUND TIME. 


— 
. 


CN MU LWT 


[0e 
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GAP MEASUREMENTS: 
HE PREVIOUS THIRTEEN (13) TESTS WERE MEASUREMENTS OF 1+ 


Baie See oRty Bs 6 He. Pah PG ue A 
on Peele? ee i a A 


E ON ie FLY, OF 


T1&. GAP SIZE (STOP HALF) 


THIS TEST WILL MEASURE THE DISTANCE TRAVLED BY THE TAPE 
GA Tg CYCLE. IN OTHER WORDS, THE DISTANCE INTO 


WRITE 1 RECORD. 
Gale TAPE IS_STOPPED. 
a A READ REVERSE OVER THE RECORD 
mont OR THE FRAME COUNT FOR THE FIRST FRAME READ (FC = 
a TIME FROM GO=1 TO FC=1 IS THE LENGTH OF THE GAP 


our Wr 


T17. GAP SIZE (START HALF) 


THIS TEST WILL MEASURE THE DISTANCE OF TAPE TRAVEL 
DURING START UP. 


WRITE 1 RECORD THEN REVERSE OVER IT, ASSURE TAPE IS STOPPED. 
ISSUE A READ FORWA 

MONITOR FC FOR ined 

- TIME FROM GO=1 TO FC=1 IS START DISTANCE 


T20. GAP SIZE (INTERRECORD) 


THIS TEST TL. MEASURE THE ENTIRE LENGTH OF THE IRG ON 
THE FLG. TIME VALUE OF THIS a SHOULD NOT BE 
EQUAL TO A SUMMATION OF T1& AND T17 QUE TO THE FACT THAT 
THE ACCELLERATION AND DECELLERATION CURVES ARE NOT IN 

2 Na a ie HERE SHOULD PCTUALLY BE LESS THAN THE 


WRITE 2 RECORDS. 

READ REVERSE fa THE SECOND RECORD 

a i -_ (BIT 7 OF DS) 

= Le Sra A SECOND READ REVERSE 


WHEN 
RONITOR FRAM “oes 
A aes 1 4 SECOND READ REVERSE TO FC=1 IS THE 
Stree OF T 
TOP 


JOe2 
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T21. GAP CONSISTENCY: 


NOW THAT WE HAVE ESTABLISHED THAT THE INTERRCORD 

GAP IS T PROPER | SIZE LET US DETERMINE THE CONSISTENCY 
OF THE GAP UNDER VARIOUS COMMAND EXECUTION TIMES. 

T ¢ ea WITH A DIFFERENT 
DELAY BETWEEN EXECUTION, WE CAN ESTABLISH THE CONSISTENCY 
OF THE GAPS BY READING THESE RECORDS AND MONITORING 


SEG 0022 


1. REWIND TAPE TO BOT. 
2. WRITE ONE (1) RECORD TO GET ar. OFF BOT 
3. WRITE SIXTEEN (16) RECORDS WITH A PROGRESSIVE DELAY 
OF FROM O TO 16 MILLISECONDS (APPROX) gg. COMMANDS . 
4. BACKSPACE 16 RECORDS AND ALLOW THE TAPE TO STOP. 
S. READ FORWARD (NON-STOP) OVER THESE 16 RECORDS, EACH 
fe | MONITORING THE TIME FROM THE END OF RECORD (ORY) 
NTIL THE FRAME COUNT NEXT GOES FROM 0 _TO Bi (FC=1). 
6. The IMES FROM DRY TO FC=1 IS THE GAP Ure AND IT 


7. STOP 
¥#(SEE GTIMTBL IN DZTUG LISTING FOR GAP TIMES) ** 


T22. RESERVED FOR FUTURE USE#**** 
T23. DATA TIME AT 200 BPI: 


THIS TEST WILL MEASURE THE TIME REQUIRED TO WRITE 
ONE (1) INCH OF TAPE AT 200 B 
BY WRITING A RECORD OF ENOUGH FRAMES TO MOVE 
THE TAPE 1 INCH (200 FRAMES), DATA RATE 
CAN BE VARIFIED. 


1. atte a TO BOT AND ALLOW TAPE TO STOP 
2. i BPI. 


ITE A RECORD AT 2 
Z: RON TORO OF Noneeer cst OB ony EE EE OE TIME REQUIRED 
Mee coe I te ot THE CE CTED DENG T TY 


T24. DATA TIME AT SS6 BPI: 
REPEAT STEPS 1 THRU S OF T23 AT S56 BPI. 


Tes. DATA TIME AT 800 BPI: 
REPEAT STEPS 1 THRU S AT 800 BPI. 


Tet. DATA TIME AT 1600 BPI ( 


(PE): 
REPEAT STEPS 1 THRU 5 AT 1600 BPI. 
#*THIS TEST IS NOT EXECUTED IF NRZ ONLY## 


1 
aC 3 ; 
_ \ 

te 


KOe 
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727. ERASE: 
THE RASE COMMAND WILL cau E AN AREA OF THE THREE (3) 
ye D IN THE FORWARD DIRECTIO 
Thats. Test WILL aBCURE THAT THE oRAPER Bie ANGE is 
1. LEAVE TAPE AT ITS PRESENT POSITAON. 
2. ISSUE AN ERASE conn MAND. 
3. HONTTOR ORY. (BIT 7 
y R ORCHES F BF ee ano” c 
RESUIRED TO fe Bee ae! a! IS NOT A Beko. 
S. STOP 
T30. TAPE MARK: 
THIS TEST IS ALSO A CHECK ON THE THREE (3) INCH GAP. 
WHEN A TAPE MARK IS WRITTEN, A 3 INCH GAP 15 
HAE ATED BEFORE DATA IS PUT ON T 
LEAVE TAPE AT ITS PRESENT POSITION 
K COMMAND 


wre 
a= 
ro 
=z 
rm 
44 
°o 
wD 
a2 
=e 
wo 
mt 
_ 
a~ 


«4 rs. 
THE TIME FROM GO TO WILL BE THE TIME 
ane WRITE THE ™M RECORD PLUS THE 


uw 


; 
~~ 
e 


LOe2 
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T31. TAPE SPEED FORWARD: 


ag i 2 LPT 
oe tee 


SEG 0024 


5 T not SKEW Tape fe HE ONLY 
NG AT THE PROPER SPEED 
RE FREQUENCY OF PRANES ON A SKEW TAPE IS 
BUBRANTEED” TO BE ACCURATE. 


tt “B FERD FORUPRD (eG e BPI; NORMAL) 


> fe OR FC = op 
*& a FOR eto = 8800 
s. 00 TO Fo = =" 8600 IS THE TIME REQUIRED 
: 0 TRAV L 107 
8 


an at iE En AVE 5 INES 8 OF FoR i INCH. 
T32. TAPE SPEED REVERSE: 


THIS TEST IS THE SAME AS TEST 31, BUT SPEED IS 
MEASURED IN THE REVERSE DIRECTION. 


ADVANCE TAPE OFF OF BOT. - 
: a, A_READ REVERSE. ‘ ™ 
PEAT STEP = THRU 6 IN THE REVERSE DIRECTION. 


OZTUS-A_TMO2/TULEJ prive FUNCTION TIMER MACY11 27(1006) O9-DEC-76 10:45 


OZTUGA.P11 


O8-DEC-76 12:38 TABLE OF CONTENTS 


STARTING as ay A 
MACRO 


IF ABLE 
TIME SPECIFICATION TABLE 
TEST ag cuit A 2 

PROGRAM SUBROU 


Or PRT hot TYPE ROUTINE 


MAL _& TYPE ROUTINE 
Rey ofa cee Pa 
ASCII TO OCT QONVERT SUBROUTINE 
PUBLISH SUBROUTINE 
INPUT SUBROU 
ERROR SERVICE ROUTINES 
SCOPE OUT INE 
TIMER SUBROUTINES 
DELAY SUBROUTINES 
DIVIDE SUBROUTINE 


DRIVE SUBROUTINES 
age INITIALIZATION 


PROGRAM MESSAGES 


SEG 0025 


DZTUG-A TMO2/TULEJ DRIVE aa TIMER MACY11 27(1006) O9-DEC-76 10:45 PAGE 1 


OZTUGA.P11 


OW £CWM-OWO NOU Lourie 


o-* b— b= b— b= 6 + b= he 


rm 
Mr--Owon 


toru) 


O8-DEC-76 1 


900100 


ye 
"MCALL SCPVEC, SCPREG, SCATCH, STYPE 
- TITLE alls TUGA THe/ Ties oubive FUNCTION TIMER 


-SBTT 
; LOADING AND STARTING TPROGEEDU ORE 
PROGRAM 


; L NG ABS LOADER 
; LOAD ES 

; SET SWITCH ONS 

; PRESS START 


; GENERAL REGISTER USA 
RL=ADDRESS, : i SRecisren (SE) By Str 


; RSs INDEX. N INDICAT TING PREVIOUS OSCILLATOR POLARITY (SET BY TIMER) 
; R4Y=CONTAINS ’TICK’ COUNT WHEN TIMER IS RUNNING (SET BY TIMER) 
; RS=ADDRESS OF CS1 (SET BY SCOPE) 


;SWITCH REGISTER SWITCH ASSIGNMENTS 
SW1S=¢ 000 sHALT ON ERROR 


1 

0 Cons SUBTEST 
SWi3= 020000 ts NHIBIT ERROR T i our 
SWil=  Q04000 aa SUBTEST _ITERA 
ese se - A ig ye OF TPUNCTION TIMES 
stipes BoH0 ie iat 3 Meh RAPIER EACH ITERATION 
SWO7= 00200 ALT ON TEST SELECTED IN SWOS-SWOO 

.$WOb= 000100 TT DOUs CYCLE 


.SBTTL MACRO DEFINITIONS 
"MA SAVE “ 
» ISR PC, . SAVE 
SAY 


¢ sSAVE REGISTERS ON THE STACK 
"MACRO RESTORE 
ISR. 


PC, .RESTORE ;RESTORE REGISTERS FROM THE STACK 


.ENDM RESTORE 
"MA 


CRO INPUT 
Pc, . INPUT :GET USER INPUT 

NOM INPUT 
"MACRO REWIND 
JSR PC. . REWIND REWIND SLAVE 
338 ‘BRANCH IF ERROR ON REWIND 
"MACRO reo 
JSR IMON ;TUPN TIMER ON 
_ENOM 
“MACRO TIMCHK 
ae TIMER(R3) :GO TO TIMER & RETURN VIA R2 
“MACRO SETGO 
INC (RS) ;SET 'GO’ BIT 
ENOM 


SEQ 0026 


OZTUG-A_TMO2/TULEJ DRIVE FUNCTION TIMER MACY11 27( 1006) 
OZTUGA.P11 12:38 


£8 ON 


LON LOO BO ONL A BOLL PP LPL PL PO 
+ LIT bs 0 be bs bw bs be es be 
N 


wt le es es ees wee we OD 


Fe ee ee ee ee ee ee ee ee ee ee ee ee ee 
COP bn 


o 
Wwroe 


08-DEC-76 


900000 


177566 


ooo004 


000250 


172540 


172440 


REGISTER ASSIGNMENTS 
SBTTL REGISTER ASSIGNMENTS 


; ;DEFINITIONS AND REGISTER pea GPEnts 
dmontomie 7 pon ASSIGNMENTS 


nereeage ADDRESSES 


ESVEC=10 deities OF ror INST, wate VECTOR 


TPS= 177564 :: TELEPRINTER 
TPB= 177566 
;; VECTOR ADDRESSES 
ERRVEC=4 ;;ADDRESS OF ERROR VECTO 
TBITVEC=14 ADDRESS OF ' 
TRIVEC=14 ;:ADDRESS OF VECTOR 
BPTVEC=14 } ;ADDRESS OF * BREGKPOINT™ TRAP VECTOR 
IOTVEC=20 ;QDDRESS OF I0T TRAP 
PFVEC=24 ; ADDRESS OF POWER FAIL TRAP VECTOR 
EMTVEC=30 ‘ADDRESS OF EMT VECTOR 
TRAPVEC=34 : ADD ESS OF T 
TKVEC= 60 ; ;ADOR = 
VEC=64 see 5 
rinveeoeit a 
F EVEC=Su4 : RDO Ss oF 
MMVEC=250 »: ADDRESS OF MEM MGMT ERROR TRAP VECTOR 
;CLOCK ADDRESS AND VECTORS 
PLKCSR= 172540 sKW11-P 
PLKVEC= 104 
LKS=—- 177546 ;KWLL-L 
LKVEC= 100 
LPS= 177514 sLPL! 
LPB= 177516 
;RH11, THO2 /TULE REGISTERS 
TMCS1= 172440 


Q3-DEC-76 10:45 PAGE 1-1 


‘ 


177776 ;;PROCESSER STATUS WORD 
Progra Se maT ic (11740 


T REG. (11/7 
; {MICRO~BR BK REGISTER (11745) 
ares D DATA BUFFER REGISTER 
:: TELEPRINTER DATA BUFFER REGISTER 


TTY P INTER INTERRUPT TYECTOR 
PAR i ERROR VECTOR 


RTYNG PO POINT INT. VECTOR 


SEQ 0027 


ee: SP SEES aor Geen EER eRe: 
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OZTUGA.P11 08-DEC-76 
71 
72 oo0000 
7 o00000e 
74 000004 
7 00006 
7E 000010 
7 ooo01e 
78 000014 
73 000016 
80 000022 
81 ooo0e4 
82 000026 
83 000030 
Sil 000032 
Qs 
86 
87 
ge noo001 
83 v00000 
99 00002 
91 0006 
92 000010 
33 oo0026 
SH 000024 
95 000030 
oe 000032 
97 000050 
38 000056 
93 000060 
100 00007: 
101 000076 
102 0001 
103 02 
104 000400 
105 001000 
106 002000 
107 000 
108 020000 
109 040000 
iy 100000 
lle oo0000 
113 000001 
114 00: 
115 00 
116 000004 
117 00 
1i8 00 
119 000007 
120 000010 
lel 000020 
lee 0040 
123 000100 
124 900200 
12s 000400 
126 001000 


O9-DEC-76 10:45 PAGE 1-2 
REGISTER ASSIGNMENTS 


capone < | INDEX VALUES 


Sl 00 
We= 02 
BA= 04 
FC= 06 
CSe= 10 
0S= le 
ER= 14 
AS= 16 
DB= ee 
MR= 24 
DT= 2b 
SN= 30 
TCs 32 
. SBT TMO2/TULE REGISTER BITS 

RHCS1-CS1(RS) 
GO= l 
NOP= 0 
RWDOFF= 2 
RWD= 6 
DRYCLR= 10 
WFMK= 26 
ERASE= 24 
SPCFWD= 30 
SPCREV= 32 
WCHKF= SO 
WCHKR= 56 
WFWD= 60 
RDFWD= 70 
ROREV= 76 
IE= 100 
RDY= 200 
Alb= 400 
Al7= 1000 
PSEL= 2000 
DVA= 4000 
MCPE= 20000 
TRE= 40000 
SC= 100000 

RHCS2-CS2(RS) 
DVO= 0 
DV1= 1 
DV2= 2 
DV3= 3 
DV4= 4 
DvS= 5 
DV6= S 
DV7= 7 
BAI= 10 
PAT= 20 
CLR= 40 
IR= 100 
OK= 200 
MOPE= 400 
MXF= 1000 


SEQ C022 


;CONTROL STATUS #1 

i BUS aot, REGISTER 

: CONTROL STATUS #2 
STATUS 


VE TYPE REG 
SERIAL NUMBER REGISTER 
TAPE CONTROL REG 
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DZTUGA.P11 08-DEC-76 
127 002000 
128 004000 
129 010000 
130 020000 
131 040000 
132 100000 
133 
134 000001 
13S ooo00e 
136 0004 
137 000010 
138 000020 
139 000040 
140 000100 
141 0200 
142 000400 
143 002000 
144 004000 
14s 010000 
146 020000 
147 040G00 
i4e 100000 
149 
150 000001 
151 oo000e 
152 Ooo004 
153 
154 000020 
1ss 000100 
156 000200 
157 000400 
158 1 
iss 002000 
160 004000 
161 010000 
l6e2 020000 
i63 040000 
164 
16S 
166 000100 
167 
168 
1693 002000 
170 010000 
171 040000 
172 
173 
174 000300 
175 000320 
176 000000 
177 00040 
OR 
ie 8000 
181 
182 


; RHMR-MR(RS) 
osc= 


:RHDT-DT(R5) 
SPR= 


CH7= 
TAP= 


;RHTC-TC(RS) 
NOR 


106000 


; INSTRUCTION EQUATES 


DOS 


O9-DEC-76 10:45 PAGE 1-3 
TMO2/TU16 REGISTER BITS 


cet fo 


SEG 0029 


rae co a anys FUNCTION TIMER MACY11 27(1006) 
12:38 TMO2/TUL6 REGISTER BITS 


DZTUGA 08-DEC-76 
183 104400 
184 194000 
185 oa0004 
186 
197 
18 005724 
18 177400 
196 177600 
i a 
194 S008 
i95 aes 
19% 090017 
197 090025 


HLT= 
SCOPE= 
TYPE= 


O9-DEC-76 10:45 PAGE 


RAP 
ENT 
I0T 


; MISCELLANEOUS anes 
OUTBUF = 


FRMCNT 

WROCN 
;ASCII Oe 

“te 


= 
oot 


i 


R= 
CNTRLO= 
CNTRLU= 


- 
wt 


ae 


;OTPUT Ree START AT BEG OF PROGRAM 
FRAME COUN 
; WORD COUNT 


sASCIT CODE FOR pasado C (tC) 
;ASCII CODE AL TAB 


;ASCIT NTR ) 
ASCII CODE FOR CONTROL LU (tu) 


SEQ 0030 


DZTUG-A_TMO2/TU16J DRIVE FUNCTION TIMER MACY11 27(1006) 
OZTUGA.P11 O8-DEC-76 12:38 


TMO2/TU16 REGISTER BITS 


FO3 


O9-DEC-76 10:45 PAGE 1-5 
SEG C021 


200 ;SETUP TRAP VECTORS 

201 0014 -STBITVEC 

5 gy Bis ares onl Rr TER RoE 
204 000020 002332 «WORD + TYPE :SE for TRAP Sa . TYPE ROUTINE 
205 000022 (00 - WORD ;PRIOTITY LEVEL 

206 000024 000026 -WORD PFVEC+2 POWER FAIL TRAP TO HALT 

207 000026 000000 «WORD HALT sAT gee e 

208 000030 004126 . WORD SCOPE ;SET EMT TRAP TO .SCOPE ROUTINE 
209 O00003e 000340 - WORD 40 :PRIORITY LEVEL 7 

210 000034 3652 -WORD = HLT ;SET TRAP TRAP 7 «HLT ROUTINE 
211 000036 900340 . WORD 0 ;PRIORITY LEVEL 7 

ele 000060 =TKVE 

€13 000060 003606 WORD TKISR 

si? O0S06e 000340 WORD 40 

216 2 SWITCH REGISTER LOC. 176 

217 000176 176 

518 OCSi7&6 000000 SWREG: 0 ;SOFTWARE SWITCH REGISTER 

220 000200 .=200 

ssh 000200 000137 005724 JMP deINIT ;G0 TO START OF PROGRAM 

223 000500 . =500 

cee 000600 STKPTR= 600 ; STACK 

226 001000 =1000 

ee? ;PROGRAM TAGS 

2e8 001000 177570 ou: 177570 ;SWITCH REGISTER 

229 00100e 000000 CPADR: .WORD OQ 

2e30 001004 000 BRVNLN BYTE Q ;1MO2 DRIVE UNDER TEST 

231 001005 000 SLVYNUM: .BYTE 0 ;TU16 SLAVE UNDER TEST 

232 001006 0009 SLVPTR: .WORD OQ POINTER TO SLAVE TABLE (SLVTBL) BELOW ‘ 
233 O01010 172440 TMBASE: .WORD TMCS1 ;BASE ADDRESS OF be 7 REGISTERS 
e34 O0101le 000000 TIME: .WORD OQ ;CONTAINS TICK’ C 

235 001014 000020 ATIMTBL:.BLKW 16. sEACH ENTRY ors TIME FOR FUNCTION 
236 ;ENTRIES ARE MADE BY "SCOPE* ROUTINE 
e37 001054 990020 GAPTBL: .BLKW 16. ;TIMES RECORDED BY GAP CONSISTANCY’ TEST 
238 001114 000000 DELTIM: .WORD. OQ ;VARIBLE DELAY 

239 001116 c00000 OCTALO: .WORD Q 

240 0011 000 GAP: BYTE QO ;CONTAINS GAP .. (USED FOR TST O21) 

a a i. ae fries ca 

e43 O01l2 000 eRe -BYTE i aoe re 

244 001124 000 PRGFLG: .BYTE OQ ;PROGRAM FLAG 

e45 001125 000 UNTFND: .BYTE 90 : UNIT POUND INDICATOR 

246 0011 000 TYPFLG: .BYTE 0 

e47 001127 000 NRZ2FLG: .BYTE 0 ; INDICATES IF DRIVE IS NRZ ONLY. 

e48 001139 000 ASFLG: .BYTE 0 31/0 = YES/NO. 

249 001132 . EVEN 

250 9001132 0460 DIGTAB: “Ol 

2eS1 001134 031462 "e3 

eSe 001136 032464 “4S 

253 001340 033466 "67 

254 OCll4e 034470 "89 

255 001144 000606 ODIGITS:.8LKB & ;RESERVE SPACE FOR CONVERTED CIGITS 
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OZTUGA.P11 


O0i4le 


08-DEC-76 


001416 


TMO2/TUL6 REGISTER BITS 

.BYTE 0 
DRVTBL: .BLKB 8. 
SLVTBL: .BLKB 64. 
INBUF 72. 
«CR><LF> 
oy? 


0° 
«7> 


ee 
aes 
, 8s 
5°? 


sks SH “ASCI 
BELL: “ASC 
SPACE2: .ASC 
SPACE: . 

ANGTAB: .ASCI 


NNGNNNNN 


»* <HT> 


O9-DEC-76 10:4S PAGE 1-6 


SEG C 
; TERMINATOR 
3A O/-1 raphe NOT TO BE/TO BE TESTED 
VE NOT 706 BE/TO BE TESTED 


3A O/-1 = SLA 
: TELETYPE INPUT BUFFER 
;MISCELLANEOUS ASCII CHARACTERS 


C32 
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OZTUGA.P11 


O8-DEC-76 1 


004172 


HO3 


TIME SPECIFICATION TABLE 


fe BINS THE SPEC TA 
; THE BELON i TABLE E ont nie THE SPECIFI 


; MICROCESON 
s MICROSECONDS (BY TRPPENDING. , a). 


.WORD  MAX,MIN 
STIMTBL: . WORD 


es 
“HOR 0830. 1 
WORD S00., 

3 Bee: ice 


WORD 01350. 

WORD 1670. 01070 
“HOR pies +» Agee 
“WORD 01180. ,00850 

WORD 01480. ,01370 
"WORD 01380.;01240 
“WORD 0,0 

WORD O24 


O9-DEC-76 10:45 PAGE 1-7 


E 
ED FUNCTION TIMES IN TENS OF 


TIMES ARE TYPED THAT THEY ARE TYPED IN 


;TIME IN MS 


tn POPU PUTU Or et 

OOM LL: Wte-roomu: 

Ule-+ = = © Ge s+ 2s © @& *& 
SPP LPP PP YT 

1 t forurorm: ->+-Owr---O 


at] 
TJ 
“Se 
! 
rm ° 
HO CWWWwOorMw: 


; SPARE 
s47p-0-372.0 


FUNCTION 


WRITE FROM BOT 
WRITE STAR 


SISANCY 


DUMMY 
DAT TIME 2008PI 
DAT TIME SS&BPI 


Bt Ne aL 


RASE 
FRY FILE MARK 
READ 1” TAPE 

RD REY 1” TAPE 


:NOTE: TEST 31 AND 32 REQUIRE PRERECORDED S8008PI SKEW TAFE. 


TEST # 


TSTOO! 


TSTO32 


SEG 0032 


OZTUG-A_ TMO2/TU1LEI hg FUNCTION TIMER a tt 27(1006) O9-DEC-76 10:45 PAGE 1-8 
DOZTUGA.PL1 O8-DEC-76 12:38 GAP TIME SPECIFICATION TABLE SES 0034 


38 ; THIS red "Contin ite GaP Sq oee CIN TERS OF MICROSECONDS) FOR EACH 

310 iF FT APS RECORDED AY THE GAP CONSISTANCY TEST (TSTO21) 

31 NOTE: GAP’ as ARE IN OCT 

313 ; . WORD haat ;TIME IN MS(10) GAP # DELAY IN MS(10) 

315 001572 o02602 oo241e2 GTIMTBL:.WORD O1410.,01290. ;14.1-12.9 GAP-O OMS 

31> Soleo § Bose3 aC eC 

zg ARIES Riera ses HOS Ble RG: HEE ED a 
00161 260 "WORD ©01450:'01200: :14:5-12:0 GAP-S5 5:0 MS 

321 O0le2? O02652 002260 - WORD 01450. ,01200. MECHE E GAP-¢* a: NS 

aes Bbiese Bosess Sassen “WORD 81370: '01300 :13: “15:3 GAP-10 8.0 M5 

BiG GREE Hse HOG ALR BIS: THER ESHA Tes" 

327 oo166e Bpe3s | QoeSe WORD Lae ‘B1800 13-5-15-9 eep-ta 1370 Me 

28 O01 Oee "WORD 01370:'01200:  !13:7-12.0 GAP-15 13.1 MS 

329 001662 002532 o02260 “HOR 01370. ,01200. 5 13.2-18.9 GAP-16 14.1 MS 

330 O01666 002532 oc2260 “WORD §=©01370:'01300: $13:7-12: GAP-17 15:1 MS 
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DZTUGA.P11  O8-DEC-76 12:38 TEST HEADER POINTERS SEG C025 

332 .SBTTL TEST HEADER POINTERS 

333 i THE BELOW TABLE CONTAINS POINTERS TO EACH TEST’S DESCRIPTOR 

334 001672 oj0000 NAMPTR: .WORD OO 

335 001674 O14667 .WORD 9.TOOL 

33 001676 014711 .WORD A.TOO2 

Be fei lal eR 

338 Bets pts "WORD A.TOOS 

340 001706 015021 .WORD A.TOO6 

342 DOLZie | BTEbES WORD LTOIO 

4 neat seats “HOR ATOLL 

344 001716 015127 .WORD A.TOl2 
001720 015154 .WORD A.TOL3 

ab BBs Blasts ABS TBE 
001726 015265 .WORD A.TOLE 

349 001730 015313 .WORD .TO17 

350 O01 Ea 015342 . WORD a. 1080 

me) RI fp BBB ony Test 
001740 O1S41s .WORD €A.T023 

See oles preuce WORD ac toes 

6 BB Pap Bie eR a. TBSP 

S7 001750 015536 WORD A.TO27 

358 001752 O15560 .WORD €.T030 

359 901754 O15603 .WORD A.TO31 

260 O01756 O15625 “WORD A.TO32 
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002236 
002240 


08-DEC-7 


000207 


000176 
17538 
ba6807 


015647 


000015 
000200 
000230 
000007 
000060 
000067 
015673 
177566 


1 
177540 


177526 


177002 


177702 
177686 
177644 
177642 
177626 


177610 
177600 


177546 
17754e 


176542 


TEST HEADER POINTERS 


CKSWR: 


CNTLU: 


1$: 


3$: 
2$: 


8$: 
4§;: 


S$: 
6$: 


73: 
OUT: 


O9-DEC-76 10:45 PAGE 1-10 


3 CHECK SWITCH REGISTER ROUTINE. CHECKS FOR tG TO ALLOW CHANGING 


+ OCATIONS USED: 
tTp: WORD O 
TENPST: “WORD 0 
COUN WORD 0 
Speue: “WORD O 


CMP “1; ie SWR 
B wT 


i wig TIB 
AYRE, L. out 


TYPE,L.SWR 
MOV JSWR, R2 

JSR PC, TYPOCT 
TYPE,L.NEW 

CLR MPST 

MOV 87, COUNT 
JSR TTIN 

BIC #177600, T1B 
CMPB S,TIB 

BNE 

BR CNTLU 

CMPB «#15, TIB 

BNE 4§ 


MOV #200, ROSW 
JSR PC, TCRLF 
CMP #7, COUNT 
NE s_ 


B ? 
BR OUT 
CMPB =s-«#60,, TIB 
BGT S$ 
CMPB saw, TIB 
BGE 6$ 
TYPE, L. QUEST 
ASL FEupsT 
ASL TEMPST 
ASL TEMPST 
BIC 860,718 
5 TIB’ TEMPST 
DEC N 
BEQ 
BR 15 
MOV EMPST, JSWR 
BR 8 
RTS PC 


C.176. 
L_IS BY WAY OF JSR PC,CKSWR 


;SOFTWARE SWITCH REG PRESENT 


: AND strip OFF 
THE GARBAGE 
SIS IT ACT 


;G0 READ A CHARACTER 
;STRIP 7 state 


T A_<CR>? 
BRANCH IF NOT 


;ECHO IT WITH <LF> 
:WAS IT FIRST CHARACTER 
am SWR IF NOT FIRST ONE 


;START OVER IF NOT LEGAL CHARACTER 


;GET NITTY-GRITTY 
;ONLY WANT & 


DIGITS 


;CHANGE SWITCH REGISTER CONTENTS 


SEQ 0036 


DZTUGS-A_TMO2/TULEI ag ‘Euyerton TIMER MACY11 27(1006) 


DZTUGA.P11 


(1) 


002314 
002315 
002316 


| in Tae Tt a a hua 1a fa oe to 1 1 1 ae 1 1 oe oe te 1 1 ee ee oe ee ee ee, ae ee 1 tae Be ee eae, oe ae, ee 
a= eee ne ee ee ean ee ee ee es ee be bo eh 
ee et ee et ee et eet et ee et et ee eet eet ee et eet eet et eet ee ee ee ee ee ee ee ee ee ee ee ee 8 ee ee 

oO 

Oo 

at) 

WwW 

Ww 

<£ 


O8-DEC-76 


010046 
017600 
062765 
105067 
105767 

0 


thes 
1445 


17S31e 


17S27e 
175266 
17S26e2 


177450 


000 


000002 
000002 
177753 
177747 


002326 
177376 


177370 


000011 


177462 


175254 


oo00de 


TEST HEADER POINTERS 


TTIN: 


TTINI: 


TTINe: 


; ;ROUTINE *f0 "hype A 
+ CAEL ae WILL 


st: 
STPFLG: 
a 


O9-DEC-76 10:45 PAGE 2 


; TTY READ SUBROUTINE ¥en eeene 


CLR TKS 
CLR TKB 

CLR TIB 

INC TKS 
TSTB TKS 

PL TaN 
MOV TKB, TIB 
TSTB TPS 

BPL TINe 
MOV8 TIB, TPB 
RTS 


settt PROGRAM oe 


Ti 


-BYTE 

-BYTE 0 

-WORD 177564 
47 7eeb 
0 
(15><12> 


MOV RO, -(SP) 
MOV a2tSP).RO 
ADD ye e(SP) 


CLRB = SCNTRLO 
TSTB = SCNTRLO 
BEQ TYPE2 
TYPE, SCRLF 
TSTB.- RDS 

BPL TYPE3 
CLR ROSW 
RTS PC 

MOVB (RO)+,-(SP) 
BNE TYPEY 
TST (SP)+ 
MOV (SP)+,RO 
RTI 


#SHT, (SP) 
9$ 


Ue 


jsTAGS USED BY THE TYPE ROUTINE 


sg Aa 


BELOW 

;;HORIZONTAL T 

; SCONTAING NUL r cHAR CTE 

: CONTAINS FITTER CHARACTERS 

; j CONTAINS TELEPRINTER AVAILABLE FLAG 

:30/377 = AVAIL /NOT aval 

j CONTAINS KEYBO D AVA 
5 S OF TELEPRINTER DATA BUFFER 

He ORE es OF EHARS TYP 


+ CONTAINS CONTROL C CHAR (IF TYPED) 


;SAVE RO 
tIGET MESSAGE ADDRESS 
;;ADJUST RETURN PC 
;;BRANCH IF CONTROL O(t0)} WASN’T TYPEC 
7; TYPE <CR><LF> 


3 PUSH CHARACTER TO BE TYPED ONTO STACK 
;BRANCH IF NOT THE TERMINATO 

PoP TEBATNATOR CHAR OFF THE STACK 

:;RETURN TO CALLER 


;;BRANCH IF HORIZONTAL TAB <HT> 


ARBCTERS BEYER A LINE. FEED. 


tS MESADR is PeIRST TADORESS OF ASCIZ STRING 


ABLE FLAG 
R STATUS REGISTER 


SEG 9037 
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DZTUGA.P11 O8-DEC-76 12:38 TYPE SUBROUTINE SEQ 0022 
(1) 002420 004767 o00026 JSR i TYPE CHARACTER 
(1) ooe¥e4 122726 000012 3S: Ca nid, (sPo+ + § CHECK IF CHARACTER WAS WAS A LINE FEED 
(1) O0e432 O16746 177656 | " MOV $NULL , -(SP) ter g FIC LERS REQUTRED AND FILLER 
iL) a :: CHARACTER. 
(1) 002436 105366 oo00n ~~ us: DECB (SP) MENT FILLERS R&Q. 
(1) o02442 103996 >a BLT SS + OE SNEH IF a HER 2 FY BERS A ARE REQUIRED 
(1) Q02444 004767 ooD002°- JSR FC, SS TYPE FILLER CHARACTE 
1) o024s0 000772 BR 4§ 
(1) y : 77 177642 cs: I 78 as]PS ;;WAIT FOR OUTPUT DEVICE 
(1) 002460 120737 000017 002325 CHPB i, , #SCNTRLO s3CHECK IE CONTROL 0 WAS TY ry PED. en 
(1) re tha, oo0002 177624 MOVB Bip) a$TPB i 8Utput BAe CHER 
(1) 002476 1ce766 000015 ooo002 6S: CHP #15, 2(S°) ::BRANCH IF NOT <CR> 
(1) TOSOb? 177612 CLRB § $CHARCNT ;;CLEAR CHARACTERS TYPED COUNT 
(1) 002512 O00406 BR. 
(1) 002514 122766 o00012 o00002 75: CMPB sa#12,, 2( SP) ;;BRANCH IF <LF> OR *NULL’ 
(1) obese abe : $ 
(1) 002504 105267 177574 NCB CHARCNT ;; INCREMENT CHARACTER TYPED COUNT 
(1) 092530 000207 8S: RTS PC 
(1) jHORIZONTA TAB <HT> PROCESSER 
(1) og2632 112716 o00040 bg: Ove #40, (SP) 1080 ; SPACE 
aD Seas sore? 500087 177554 ses: 13R at SCHARCNT TYPE TIL A MULTIPLE 
ne a ; 
(1) Ap Seeh 355 NE 10$ Hs b Li eae have BEER YPED 
(1) 002552 105726 TSTB 0s (SP)+ 
(1) 002554 000676 BR TYPE1 + CET NEXT | CHARACTER 
43 EAPROUTING TO SAVE GENERAL REGISTERS ON THE STACK 
438 002556 010546 "SAVE: MOV RS,-(SP) ;SAVE REGISTERS ON THE STACK 
439 002560 O10446 MOV. R4Y.-(SP) 
44 b2 01 MOV Rg, -(BP) 
44] 64 Ol MOV - ‘=f 
442 002566 010146 MOV — RI,-(SP) 
uua pose72 BieeHe COOOL MOY AULSP}, —¢SP) T RETURN PC 
_ BOSEnE Bobed? RTS en? ‘RETURN 
sa A SSLBROUT INE 10, RESTORE GENERAL REGISTERS FROM THE STACK 
yy 12 000014 "RESTORE: MOV. ($P)+, 14(SP) :MOVE RETURN P 
ued paSeoG ea . MOV’ Be) Ra aes Hae RECISTERS 
451 002606 012601 MOV )+,R1 
4 2610 Ole6 MOV (SP) +) Re 
4 1 126 3 MOV (5P)+/R3 
4o4 614 012604 MOV (SP)+'R4 
455 002616 932605 MOV (SP)+, "RS . 
456 ocesen 900207 RTS : RETURN 
458 SUBROUTINE TO CONVERT OCTAL DATA TO ASCII 


Oe ee cere ae ee me ne er ee ee 


O0ebe2 110667 
O026e6 000402 


470 2630 105037 
(1) 002634 004767 


45 Bosca BAEGB3 


(1) 002722 004767 
493 002726 000207 


002730 tite 


NO3 
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BeTuGacpll e-Det~?e 12:38 


176300 


001126 


177716 
001144 


000006 


000003 
001132 


001126 
001144 
177652 


001126 


001126 
177610 
001144 


SCALL: MOV | NUMBER ;MOVE NUMBER TO R2 


Wx Pevenvoct : 
CNVOCT: MOVB SP. TYPFLG ;SET DO NOT TYPE FLAG 6g 


CNVTO 
suerourie be CONVERT ORF NUMBER 3 AScIT aN Ma IT OUT 


: JSR PC, TYPOCT ‘CALL *ABUTINE 
Typoct: CLRB  @aTYPFLG ;SET TYPE FLAG 
; JSR PC, - SAVE 0 iSOVE PEGESTENS 0 ON THE STACK 
Px R3 F : ins ditt CuFBIN bcTaL DIGIT 
MOV ,R1 YPE 
s @ B Gilet | 
MOV #6, RO ;SET DIGIT COUNTER 
BR 3$ 
23: ASL R2 ;SHIFT # 3 PLACES LEFT 
ROL R3 
DEC Rl L 
BNE 2$ 
3S: MOV #3,R1 :SET SHIFT COUNTER 
NOV DIGTAB(RS) , (R4)+ :MOVE ASCII EQUIV TO OUTPUT 
EC RO DECRENENT DIGIT COUNT 
rote SITYPFLG | Meg H Pa IS 
BNE NOT B aE F aScIk 
as TYPE, opiaiTs. 
. ISR BC, -RESTORE RESTORE REGISTERS FROM THE STACK 


be nied TO CONVERT OCTAL DATA TO DECIMAL ASCII 
CALL: MOV NUMBER, Re ;MOVE NUMBER TO Re 


: ISR PC, CNVDEC, 
CNVDEC: MOVB SP 3eTYPFLG SET DO NOT TYPE FLAG 
BR CNYT 


- SBTT OCTAL TO DECIMAL & TYPE ROUTINE 
se on ROUT INE “CONVERTS 8 AN octal # TO DECIMAL ars oe TYPES IT OUT 


% 
: ng PC, pur ‘bee CALL ROUTINE 
TYPDEC: CLRB $$ asTYPFLG ;SET TYPE FLAG 
* ‘JSR PC,.SAVE © SAVE. REGISTERS ON THE STAC 
CLR RO sath a : x 19 DECIMAL CONSTANT 
18: CLR fe rman fs sputeute Pra DECIMAL DIGIT 


SEG 0039 


04 
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OZTUGA.P11 12:38 ocT 


oe 


O8-DEC-76 


004767 
000207 


O01 
000000 


010246 
010346 
006302 


003036 


003036 


oc0060 
001126 


001144 
177544 


014647 


001374 


AL TO DECIMAL & TYPE ROUTINE 
es: SUB DCONST (RO), Re we. DECIMAL nee UNTIL 
3$ ‘I # GOES NEGATIVE 
At R KEEPING TRACK OF SUBTRACTIONS 


2 
3$: ADO DCONST(RO) ,Re ;ADD_BACK CONSTANT een NEGATIVE 
MOVB DIGTAB(RS), (R4)+ s HOVE BSI t odes LENT 


~ “NEXT CONSTA 
st GEONST RO) ‘UNTIL ALL CONSTANTS DONE 
MOVE #80, (R4)+ 


sLAST DIGIT IS 0 
TSTB asTYPFLG 


BRANCH IF ASCII IS 
BNE 4$ NOT TO BE TYPED 
TYPE, ODIGITS 


4§: 
JSR PC, .RESTORE sRESTORE REGISTERS FROM THE STACK 
RTS PC 
DCONST: .WORD 410000. 
-WORD 1000. 
-WORD 100. 
-WORD ‘O. 
. WORD f- 
. WORD ; TERMINATOR 
TTL 


.SB TYPE SPECIFIED TIMES ROUTINE 

; THIS syeROUT Ine OUTPUTS THE TIME ee FOR THE TEST 
AND ALSO THE A ! UAL TIME RECORDED (ATIME) 

;FORMAT OF LINE TYPED 


: RANGE =< AARAAR- BBBBEB? if TUAL=CCCCCC 
* WHERE : AAAAA IS MAXIMUM TIME FOR TEST (STIMTBL(TSTNUMX4)). 
: BBEGBE 1S MINT MOM TIME FOR TEST (STIMTBL(TSTNUMX4+2)). 
: CCCCCC IS ACTUAL TIME RECORDED By TEST (ATIME). 
;CALL: MOVB TEST NUMBER Re ;LOAD TEST NUMB 

i ;MOVE TIME TO ATIME 


: MOV #TIME, JHATIME 
: JSR PC, OUTSPC 
buTSPC: MOV R2,-(SP) one R2 & R3 ON THE STACK 
MOV R3,-(SP) 
ASL R2 ;MULTIPLY TEST # TIMES 4 
ASL Re -TO FORM INDEX INTO STIMTBL 
HOV : R2,R3 ?R3 CONTAINS INDEX INTO TABLE 
MOV STIMTBL(R3),R2 GET MAXIMUM SPEC TIME 
JSR PC, TYPDEC :CONVERT TO DECIMAL & TYPE 
TYPE, DASH 
MOV STIMTBL+2(R3) ,R2 :GET MINIMUM TIME 
ISR PC. TYPDEC ‘CONVERT TO DECIMAL $ TYPE 
TYPE, ANGTAB 
TYPE; L.ACT 
MOV senTIne Re GET ACTUAL TIME 
JSR YPDEC :CONVERT TO DECIMAL & TYPE 
TYPE, 
MOY rare 
MOV (SP)+'R2 
RTS PC : RETURN 


. SBTTL TYPE GAP TIMES SUBROUTINE 


SEG cO4c 


a a en ne ee ee 0 ee ee a ae ee eee ae ene 
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OZTUGA.P11 O8-DEC-76 12:38 YPE GAP TIMES SUBROUTINE SEG 004! 
67 THE SUBROUTINE IS USED TO TYPE THE SPECIFIED GAP SIZES (RECORDED IN 
68 21) IS CALLED BY THE GAPOK ROUTINE IF THE GAP SIZE IS OUT OF 

563 RANGE VIG THE HLT ROUTINE (HLT+2). 
570 iRaNG #GAP, GAP “LOAD GAP # INTO GaP 
571 : MOV STING ATIME ‘rOAD ACTUAL TIME INTO ATIME 
72 : JSR PC, OUTGAP 
574 003146 010246 OUTGAP: MOV Re, -(SP) :SAVE R2 AND R23 
575 003150 O10346 MOV (5 SP) 
576 O031S2 116703 175742 MOVB ch APR GET GAP # 
577 003156 006303 ASL 
578 003160 006303 ASL 3 
579 003162 OO0004 014647 TYPE, L.RNG 
580 003166 016302 001572 MOV GTIMTBL(R3),R2 GET MAX TIME 
581 003172 767 177540 JSR PC, TYPDEC -CONVERT TO DECIMAL & TYPE 
S82 003176 0014 TYPE, DASH 
583 003202 016302 001574 MOV GTINTBL +2(R3), R2 GET MIN TIME 
584 0032068 004767 177524 JSR PC, TYPDEC s CONVERT TO DECIMAL & TYPE 
585 003212 o00004 o0141e TYPE, ANGTAB : TYPE < 
586 003216 014657 TYPE; L.ACT 
587 003222 013702 O010le MOV D#ATIME, R2 ;GET ACTUAL TIME 
S88 003226 004767 177504 JSR PC, TYPDEC “CONVERT TO DECIMAL & TYPE 
589 003232 O00004 014336 ,E.GAP’ 
590 003236 113702 001120 MOVE’  @a#GAP,Re sSET GAP # 
fe ee fon tnah fe orgs tetdhe 
593 003252 012603 MOV’ (SP)+,R3 uate R3 AND R2 
594 003254 MOV (SP)+’R2 
535 003256 000207 RTS 
597 .SBTTL ASCII TO OCTAL CONVERT SUBROUTINE 
598 ; SUBROUTINE TO CONVERT ASCII DATA TO OCTAL. CONVERTED OCTAL DATA 
599 -IS LEFT IN OCTALO <15-00>. 
600 003260 &NVTAO: 
(1) 003260 004767 177272 JSR PC, . SAVE :SAVE REGISTERS ON THE STACK 
601 003264 012700 001264 MOV #INBUF , RO SET PTR TO ASCII DAT 
602 003270 012701 OOlI16 MOV #0CTALO,R1 ‘GET ADDRESS OF OCTAL “para 
603 903874 005011 CLR (R1) :CLEAR OUT OLD OCTAL DATA 
76 005061 oo0002 CLR 2(R1) 
605 003302 122710 oo0015 1S: CMPB —s- #CR, (RO) :<CR> TERMINATES INPUT 
606 003306 001414 BEQ 
607 10 112002 MOVB (RO)+,R2 ;GET *OCTAL’ DATA 
608 003312 O42702 177770 BIC #177770, Re “STRIP UNUSED BITS 
609 003316 012703 o00003 MOV #3,R3 ;SET SHIFT COUNT 
610 003322 006311 2S: ASL (RI) T LAST 
611 003324 006161 oo000e ROL 2(R1) SOCTAL DIGIT 
612 003330 DEC R3 
613 003332 001373 BNE 2s 
bi 3 050211 BIS R2, (RL) '  sQND_INSERT THIS DIGIT 
15 000761 BR 1$ GO GET NEXT DIGIT 
616 003340 3$: 
(1) 003340 004767 177234 ISR PC, .RESTORE sRESTORE REGISTERS FROM THE STACK 
p17 003344 000207 RTS PC * RETURN 
£19 SBTT PUBLISH SUBROUTINE 
620 THE PUBLISH SUBROUTINE AVERAGES THE RECORDED TIMES FOR EACH TEST IT- 
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OZTUGA.P11 O8-DEC-76 PUBLISH SUBROUTINE 
621 s ERATION CF 16, ITERATIONS) AND PLACES THE AVERAGE RESULT IN ‘ATIME’. 
b22 IT TYPES THE NAME OF THE FUNCTION THAT WAS TIMED, THE TIME SPEC- 
be : IFICATION ARO” THE ACTUAL TIME . 
$25 003346 PUBLISH: 

(1) 003346 004767 177204 JS PC, .SAVE -SAVE REGISTERS ON THE STACK 
626 093352 012700 001014 MOV #ATIMTBL, RO :GET TABLE ADDRESS CONTAINING TIMES 
627 ppsaee 113701 001121 MOVB  a#ITCNT,RI GET # OF ENTRIES (GIVEN BY ITERATION COUNT) 
p28 003362 keer 000001 NPB #L,R1 OF BRANCH IF SINGLE ITERATION 
630 003370 gosode CLR Re CLEAR ’SUM’ REGISTERS 
te 
6 BBS a4 een ooo0020 CMPB = s«#16.,R1 BRANCH IF 16. ITERATIONS 
633 003400 O01402 BEQ 1$ 
634 003402 O00000 HALT ITERATION COUNT MUST BE 1 OR 16. 
635 404 000777 ;D0 NOT CHANGE POSIT OF SW11 
b3b ‘WHEN TEST IS RUNNING. 
638 003406 o62002 1S: ADD (RO)+,R2 an INDIVIDUAL TIMES 
639 003410 o0SS03 ADC R3 
640 O03412 005301 DEC Ri 
bul 003414 001374 15 
643 003416 012700 o00004 23: MOV #4, RO 
644 OCO3422 006203 38: ASR R3 :SHIFT TIME IN R3 & Re 4 PLACES 
64S 003424 O06002 | ROR R2 RIGHT = DIVIDE BY 16. 
646 003426 005300 DEC RO 
647 003430 001374 BNE 35 
bY8 003432 010237 oo1012 MOV R2, WATIME :MOVE AVERAGED TIMES 
650 003436 113700 001122 4g: MOVB  a#TSTNUM,RO :GET TEST # 
651 o03442 006300 ASL 
652 OO3444 016067 001672 oD0002 MOV NAMPTR(RO) S$ ;GET TEST NAME STRING ADDRESS 
653 003452 O00004 TYPE 
654 003454 O00000 S$: .WORD O 
655 003456 113702 001122 MOVE  @&TSTNUM, Re GET TEST 8 
656 O03462 O04767 177364 JSR PC, OUTSPC OUTPUT TIMES 
657 003466 004767 177106 TR PC’ RESTORE IRESTORE REGISTERS FROM THE STACK 
b58 003472 000207 RTS pC’ 
660 .SBTT INPUT SUBROUTINE 
661 : SUBROUTINE 16 GET TTY INPUT 
662 CALL: JS U 
Ee ‘INPUT DATA IS RETURNED IN BUFFER BEGINNING AT INBUF. 
665 003474 O10046 INPUT: MOV - ;SAVE RO ON THE STACK 
666 003476 012700 001264 i$: MOV RIABUP. RO 
667 003502 105737 177560 2$: TSTB = ABTKS 
B68 003506 100375 BPL 
670 903510 413746 177568 Hove auTKB, < (SP) GET CHARACTER 
67 ppsed, 122716 BOOT CMPB = #177, (SP) :CHECK RUSOUT 
673 003524 O01004 BNE 


674 003526 124026 
67S 003530 000004 001377 


CMPB 
TYPE, BKSLSH 


DOY 
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-(RO), (SP)+ ;REMOVE CHARACTER FROM INPUT 


SEQ C042 
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DZTUGA.P11 


003646 


08-DEC-76 


o000de 
122726 


000025 


001374 
001401 
000015 
001401 
001374 


177562 
000200 
000017 


176475 
000003 


005724 


INPUT SUBROUTINE 


BR 
33: CMPB 
BNE 


TYPE, CRLF 
ug: MOVB (SP), a¥ECHO 

MOVB (SP); (RO)+ 

CMPB ss #CR, (SP) + 

BEQ 

TYPE, ECHO 

BR 
S$: TYPE, CRLF 

MOV (SP)+,RO 

RTS PC 
-KEYBOARD INTERRUPT SERVICE ROUTINE 
TKISR: Nov 8 as a4TKB -($ (SP) 

che RENTAL, (SP) 

MOVB (Sp )4, SCNTRLO 

RTI 
1S: CMPB  s-&3, (SP)+ 

NE 2s 

RESET 

MP JHINIT 
es: RTI 


QO9-DEC-76 10:45 PAGE 2-6 


WAIT FOR NEXT CHARACTER 
‘CHECK CONTROL U (tU) 


;GET TYPED CHARACTER 
:STRIP PARITY 
*BRANCH IF NOT CONTROL 0 (tO) 


;SET CONTROL 0 INDICATOR IN TYPE ROUTINE 
;BRANCH IF NOT CONTROL C (fC) 


;RESTART PROGRAM 
;EXIT 
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OZTUGA. P11 


003650 


004970 
004076 
004109 


08-DEC-76 


oco000 


0 
000004 


176112 


000002 
01422 
0000 


177202 
001374 


177074 
001374 


000014 
002000 


102100 
192300 


014113 


014147 
000097 


176564 
001407 


001000 
601403 


O9-DEC-76 10:45 PAGE 2-7 
ERROR SERVICE ROUTINES 


. SBTT ERROR SERVICE a: ¥ om 
ta a yr PROCESS ERROR TRAPS (TRAPS TO 4 


ERRTR 
s ERROR 


;THE CALLS FOR AN OUT 
? HARDWARE ERROR THE CALL IS < 


-HLT: JSR PC, CKSWR 
JSR PC, .SAVE 
1S: MOVB SP O¥ERFLG 
175104 BIT #SW13, JSW 
BNE 4 
TYPE ,E.HDR 
MOVE’ a#TSTNUM, Re 
JSR pc. Typoct 
MOV 16{SP),RO 
SUB 8 
MOVB (RO), RO 
BEQ 
TYPE ,E.HDRe 
CMPB’ #2, RO 
BNE 10 
ISR fc, OUTGAP 
TYPE, ,CRL 
10$: § JSR PC, OUTSPC 
TYPE, CRLF 
2S: MOV ER(RS),RO 
000032 BIT #PE 1600, TC(RS) 
BIC #102100,RO 
BR 21$ 
20$: BIC #102300, R0 
21$: TST RO 


BNE 2e$ 
LYFE £. 3 o 
BR 6$ 


ees: TYPE,E.HOR1 


MOV RS,RO 
MOV #7. RI 
3S: MOV (ROS+,R2 

JSR PC. TYPOCT 
TYPE, 2 
EC 
BNE et} 
MOV TC CRS) Re 
JSR . TYPOCT 
THEE, CRLF” 

174702 4S: BIT #509, ISWR 


EQ 
TYPE, BELL 


Ryige mi eh 
THIS ROUTI ESS 7 4 ae ERR OF ERRORS (OUT OF RANGE AND a eet 


RROR ARE <HLT+1>,<HLT+2> AND, FOR 


;CHECK FOR CNTL G 

; SAVE REGISTERS ON THE STACK 
SET ERROR FLAG 

;BRANCH IF NO TYPOUT 


T TEST # 

; TYPE IT 

;GET RETURN £ 

<NOW PC_OF HLT CALL 
NOW HLT oe ITSELF 
;BRANCH IF 


sBRANCH IF NOT HLT+2 
TYPE GAP SPECIFIED TIMES 


;TYPE SPECIFIED TIMES 


:TYPE SOFT ERROR MESSAGE 


;GET FIRST ApORE a OF REGS. 
;TYPE FIRST 7 REGS. 

;GET REG CONTENTS 

;AND TYPE IT 


;GET CONTENTS OF TC REGISTER 


;BRANCH IF NO RING THE SELL 


SES cO44 


GO4 
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O2TUGA.P11  O8-DEC-76 12:38 ERROR SERVICE ROUTINES 

762 OO¥104 005777 174670 ss: TST aSWR ;HALT ON ERROR? 

752 004119 90001 BPL_séGS 

764 OO4li2 O00 HALT 

765 QOML14 OO47F? 175650 6$: JSR PC,CKSWR ;CHECK FOR CNTL G 

Peg OON1g0 OO¥7be 176454 JSR ——- PC, . RESTORE ;RESTORE REGISTERS FROM THE 5 
767 aa8s RTI S RETURN 

‘Ss 
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OZTUGA.P1i O8-DEC-76 12:38 SCOPE SUBROUTINE SEG OO4E 

77 — aonette SCOPE’ SUBROUTINE 
273 sTHIS ROUTINE IS & IS ENTERED UPON COMPLETION OF EACH SUBTEST 
77 ; PE ACH_ITERATION IF SWO8 IS SET 

Sp A | HS, iF “sul feted 
777 : : i: of FUNCTION IN TIME TABLE (ATIMTBL) 
779 : baie es te ie ais AND IF ITERATIONS COMPLETE CONTINUES 
780 TO NEXT TEST, OTHERWISE RE TEST. 
781 ; DELAYS BEFORE CON ONTINUING OR REPEATING TEST. 
res : RETURNS: f= =BASE RoORESS. OF _THO2 REGISTERS (ADDRESS OF CS1) 
785 RO=’FC’ REG ADDRESS 
re GELS GD SORES SR Padicae 
789 004136 032777 OOO4O0 174634 BIT #SWO8, aSWR | sal. IF SPECIFICATION LINE 
799 144 ab 1404 . BEQ sNOT DESIRED 9 ON EACH ITERATION 
731 DH 46 1137 001122 MOVE geTSTNUM, Re coal 

' 

? O41 993785 AZ BBGd 174614 10S: BtF weal, spt Sue T TAPE fF SORR Poor 
794 004164 OO14I7 BEG “NOT OE SIRED 
735 OO4166 767 OO0S46 1$: JSR Be, DELA :DELAY 350 MS 
79% 004172 004767 000776 JSR PC’ pe NIT NIT 
797 004176 105037 001123 CLRB  astRFLG ‘CLEAR ERROR FLAG 
8 Gee flee Iver oe 
800 oove10 062701 o00012 ADD ab8 Au sADDRESS OF ‘DS’ REG IS IN RI 
G02 OO4216 062700 oD0006 ADD Pe RO SADDRESS OF ‘FC’ REG IS IN RO 
803 oo4222 oooo02 RTI 
B05 gow2es 105737 001123 2: Ts18 QUERFLG sBRANCH IF ERROR FLAG IS SET 

7 oo4e 3700 001121 MOVB § 3#ITCNT,RO -GET ITERATION COUNT 
Set £300 ASL —SséRO 'STORE TIME IN TABLE 
809 OO4240 013760 O01012 o01014 MOV QWATIME , ATIMTBL(RO) 
810 S044 105237 OOllel 3: INCB  asITCNT INCREMENT ITERATION COUNT 
Bil bovese 032777 004000 174520 BIT #SHLT, aSUR !BRANCH IF SINGLE ITERATION DESIRED 
g13 no426e 122737 o00020 001121 CHEB #16., , O8ITCNT sBRANCH IF ITERATIONS INCOMPLETE 
815 Oc4e7e 011637 001002 us: MOV (SP), J#SCPADR sSET SCOPE ADDRES: TO NEXT TEST 
g18 pove76 036777 002000 174474 IT oui, aSWR ‘BRANCH IF NO PUBLICATION DESIRED 
og ies ae es, dee tu ee LRT OE, 
Bs3 pOdSte 152935 ree 6 ; : TB aeR BRA IF see DOES NOT WANT TO 
Sb RA BE rug Bt be os SD ails 
Bes 004330 Ode716 177740 BIC 817740, (SP) pats ALL 8 UT TEST « 

c 
825 004326 123726 001122 CMPB  @#TSTNUM, (SP)+ tBRANCH IF NOT AT TEST 
82_ O04342 001311 BNE 1$ 
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Pll 


ae 


OSes 


4416 


004420 
004426 
004430 


004470 
004476 
004500 


O8-DEC-76 
000000 


poar8s 


b12703 


032765 
001374 
oo040s 


005403 
032765 


bot207 


004470 


032765 
001362 
0001 ie 


175416 


000024 
000100 


000100 


009100 


000100 


014250 
174314 


000100 


ooode4 
o00c24 


ocode4 


oo0de4 


o000e4 


er nee 
a sr cae 


5 


TIMON: 


1$: 


2s: 
3$: 


4$: 


COPE SUBROUTINE 


HALT 
apr cee 


.SBTTL TIMER SUBROUTINES 


p RED, Ano TRE OseiLLeN fon E PoLARt IS eo Nh 
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SES 0047 


;CHECK FOR CNTL G 


Y CHANGES WITH R32 


P LARITY MOF” THe” OSCILLATOR 


RS | TO INDICATE LAST POLARITY (+24/-24=0/1) 


CLR 

MOV #24.R3 

BIT #0SC, MR(RS) 

Bt? BOSC, MR(RS) 
1$ 

BR 4g 


R3 
BIT #OSC,MR(RS) 


; SUBROUTINE TO COUNT TIME 


i Poe ao 3‘f8 néGateo't8 iNDICRTE 
‘CALL 


RET URN ADDRESS T 


;CLEAR TIME COU 
SET POLARITY 10. *0” STATE 
: BRANCH IF POLARITY IS °Q’ 


;WAIT FOR OSCILLATOR TO RETURN 


; NEGATE PREV POLARITY INDICATOR 
SY FOR STARE LATOR TO RETURN 


4 


;R3 IS SET BY TIMON ROUTINE 


Rex ER 
NOTE: mL. a ate” EXECUTE THIS ROUTINE IS VERY CRITICAL. IT MUST BE 


LESS T 
pENTER HERE VIA JMP TIMER(R3) WHEN R3=-24 (PREV STATE=1) 
TIMER: BIT BOSC, MR(RS) sBRANCH IF CURRENT STATE IS °9° 
BEQ MER :GO INCREMENT TIME 
IMP (R2) : T 
.=TIMER1+24 
TIMER: NEG RS ;NEGATE PREV STATE INDICATOR 
NC ‘INCREMENT ‘TICK’ 
BMT TIMER ‘BRANCH ON OVERFL 
IMP (R2) RETURN TO TEST 
TIMERR: TYPE,E.TIMOV :TYPE ’TIMER OVERFLOWED' 


H 
JMP aSCPADR 


REPORT HARDWARE ERROR 
;RETURN TO BEGINNING OF TEST 


+oeee. ‘ iA Pe. TUMER(R3) WHEN R3=+24 (PREV 


—_ 5) 
NP fo - 


;BRANCH I TRURRENT STATE = 


704 


uJ 
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0000 


wWwnowwo-owWww 
a 
OWONT-~ UCWr-OWwW 


004612 
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023760 
101001 
104401 


004767 
occe07 


1 
001374 


176050 
000070 


000012 
000262 


0010 

Bb! 128 
001012 
001012 


175770 


66807 


001416 
001420 


TIMER SUBROUTINES 
;SUBROUTINE TO CHECK TIME RECORDED oT SUBTEST. 


sTHIS UBROLIT INE COMPUTES THE AC TIME CIN MICROSECONDS) AND CHECKS 
WITH M The Mir CaRtT S of he MT vad) ye Test i He LOW LINTT COTINTOL s2eRE) ae 
tk cA oii At aoe Te et ahon Typeour Beck re, 
UTNE 13 [ENTERED 
TIMOK: 
SR PC, . SAVE ;SAVE REGISTERS ON THE STACK 
Nov aS6. RO ieet TIME PER TICK 
CLR a+ iE ak CAM ING REGASTERS 
: AD WR : Y PER TICK 
or a BUTTE  coone eR 
DEC Ri 
BNE 1$ 
MOV R2,-(SP) :DIVIDE COUNT BY 10. 
MOV R3,-(SP) 
MOV #10. .-(SP) 
JSR PC. OLVIDE 
TST (SP)+ ;DISCARD REMAINDER 
MOV (SP )+ Q4AT INE :RIORE OY QUOTIENT 
MOVB  a@&TSTAUM, 
o 
“MP J#ATIME , STIMTBL (RO) ;CHECK THAT TIME IS WITHIN 
SHI 2$ ‘LIMITS SPECIFIED 
ciip SEATINE, STIMTBL +2(RO) 
28: HLT+1 ;CALL ERROR ROUTINE 
: JSR PC, .RESTORE ; RESTORE REGISTERS FROM THE STACK 
RTS PC : RETURN 
; SUBROUTINE TO CHECK INDIVIQUAL GAP TIMES (PRODUCED BY TSTO21) 
; SUBROUTINE COMPUTES THE ACTUAL TIME (IN NICROSECONDS) AND CHECKS 
‘THAT THE GAP TIME RECORDED Bye THE SUBTEST (TSTOC1) BY COMPARING THE 
‘TIME WITH THE MAX LIMiT (GTIMTBL-GAPTBL(R1)) AND THE MIN LIMIT 
; (GTIMTBL +2-GAPTBL ( L(R}) 
-CALL: MOV #TICK Count, RY :R4 CONTAIN TECK COUNT 
: MOVB  &GAP, a#GAP ‘LOCATION GAP CONTAINS GAP & 
: ISR PC, GAPOK 
_— JSR p - SAVE E REGISTERS ON THE STACK 
MOV a5 iaey rie Bee tr on a? 
MOY ai GET TICK COUNT 
CLR Re" CLEAR SUMMING REGISTERS 
1S: ADD RO, Re sMULTIPLY TICK COUNT 
AD R3 ‘BY TIME PER TICK 
DE Ri 
BNE 1$ 


SEG O048 
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004767 
000207 


Oae7B4 
001773 
012602 
000207 


000207 


38 


000012 
0001Se 


001012 
001120 
001012 
001012 
000400 
176214 


175642 


177410 
004756 


04600 


174120 


177352 
005014 


} Obits 


001572 
001574 


174054 


K 
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SEG 0049 


MOV R2,-(SP sDIVIDE TIME BY 10. 
MOV R3,-(SP) 
MOV #10. .-(SP) 
JSR PC btvIDE 
TST ; DISCARD REMAINDER 
MOV (8P)3, JNATINE :STORE QUOTIENT 
MOVB  @aGAP,R3 :GET GAP 8 
ASL jMULT PLY By 
ASL R3 *TO GET AT TeaLe ENTRY 
cP IBATIME, GTIMTBL(R3) :CHECK TIME (MAX) 
chp SHATINE, GTIMTBL+2(R3) sCHECK TIME (MIN) 
2s: HLT+2 ae ;REPORT OUT OF RANGE ERROR 
38: BIT WSHOB, ASHR ;BRANCH IF TIMES NOT WANTED 
JSR C, OUTGAP ;TYPE GAP TIMES 
100$: 
JSR PC, .RESTORE : RESTORE REGISTERS FROM THE STACK 
RTS PC ;RETURN TO TEST 
.SBTT DELAY SUBROUTINES 
- THIS SUBROUTINE CAUSES A DELAY OF 350 MS. 
BELAY: JSR PC, TIMON 
MOV Re’ -(SP) ;SAVE R2 ON THE STACK 
me MOV #2$ RE :SET RETURN ADDRESS FOR TIMER 
‘ JMP TIMER(R3) ;GO TO TIMER & RETURN VIA R2 
2s: BIT #4000, R4 
MOV (SP)+,Re RESTORE R2 
RTS PC 
; THIS SUBROUTINE aLLOUS A CALLER SPECIFIED DELAY (UP TO 6SMS.) 
:CALL: DELAY TIME, DELTIM sLOAD DELAY TIME (IN US) 
TOR FLAY 
dELayy: ist bet ;BRANCH IF O DELAY 
ISR FC, TINON TURN TIMER ON 
MOV :SAVE R2 ON THE STA 
es MOV Rs 5th *SET RETURN AD Rese” FROM TIMER 
: IMP TIMER(R3) ;GO TO TIMER $ RETURN VIA Re 
2S: Cp a4D LTIM, RY 
MOV (SP )4, Re RESTORE R2 
3S: RTS PC 


sTHTS SUBROUTINE DI 
:TO THE 


-SBTTL DIV : SUBROUTINE 
CALLER ON TH 
MOV LEA 2 


D 
I 
HE 
AST 
MOV #MOST 


TACK. BOTH DIVIDEND 8 DIVISOR MUST BE POSITIVE. 
IGNIFICANT HALF DIVIDEND, 


E 
Ue A DOUBLE PRECISION # AND RETURNS THE RESULT 
$ ~(SP) 
SIGNIFICANT HALF DIVIDEND, -(SP) 


(oo ee ee 
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D2TUGA.P11  O8-DEC-76 12:38 DIVIDE SUBROUTINE SEG cose 
399 ; MOV #DIVISOR, -(SP) 
999 : JSR PC, DIVIDE 
$91 * RETURN 
992 : (SP)=REMAINDER ON STACK 
aaa ; 2(SP)=QUOTIENT 
32 ;NOTE: THIS SUBROUTINE DESTROYS PREVIOUS CONTENTS OF RO,R1,R2 & R3. 
997 05026 OOSONE DIVIDE: CLR ~ (SP) aes ; SAVE LOC FOR SIGNS - 
% - 
agg Been sq pert hanes ney 1 Cp) ‘Ri et ie BIy fhe 8 
1000 05040 016600 900010 mov 10($P) RO ‘GET MSH DIVIDEND 
t8B4 BReRed Baee G BS ‘ iRELAHE Bi fsor 
1003 o0s0Se o00241 cue -CLEAR ’C’ BIT IN PSW 
1 OpsnSs atti 1$: OL 8 sROTATE Ma MSH DIVIDEND 
1 1 MOV RO,R3 
1007 005062 060203 ADD R2,R3 : SUBTRACT ya visor FROM MSH DIVIDEND 
1008 005064 103001 Bcc 2$ ;BRANCH IF pay IDEND > > DIVISOR 
1G BoeOeB Boe TDT 2 ROL ae i BOVATE Le ; FVIOEND a 
1011 o05072 o0S3i6 : DEC (SP) sROTATE LS ei NAPE OR COUNT 
i012 005074 001370 BNE 1$ 
1013 005076 005726 TST (SP)+ :POP ITERATION COUNTER 
1014 p05 0572 TST (SP)+ :POP SIGN CORRECTION 
1015 102 O10166 ooo006 MOV R1,6(SP) PUSH REMAINDER ON STACK 
1016 695106 010066 900004 MOV RO, 4(SP) PUSH QUOTIENT ONTO STACK 
1017 OOSll2 Ole616 , MOV (SP)+, (SP) 
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1019 


Pll 


005114 


08-DEC-76 
000207 


012765 
113765 
00 


032765 


001004 
040000 
000034 


001004 
001005 
002000 


000300 


000012 
177764 
014275 
002000 
im 

2 
000106 
177712 
040000 


000010 
000026 


0N0010 
000032 
000026 


000010 
000610 


000032 


000012 


0000 le 


DIVIDE SUBROUTINE 

RTS PC 

-SBTTL ORIVE SUBROUTINES 
; SUBROUTINE TO CHECK_IF DRIVE IS AVAILABLE 
;CALL: MOVB DRIVES, ORVNUM 


RETURN - ert “a T 1 NOT AVAILAB 
ORVAVA: “Move SHORVRUN S2(RS) aB LED OR 


IT AP, DT(RS) CHECK. oe VE ope UNIT 
BNE 1$ 
JSR PC, RHINIT : 
SEV sSET ’v’? TO IND NOT AVAIL 
1S: RTS PC * RETURN 


ERLE? "Rove" “DRIve"s, aubRviH "SPREE BRIVE 4 Vin omvnun 


MOVB ANE % #SLVNUM sPASS SLAV A SLVNUM 
: JSR Bk CALL SUR bu tt Ne 
SLVAVA: MOVB DRORVNUN, CS2(RS) 
MOVB  J#SLVNUM: TC(RS) i END sta ieee 
BIT wSPR, DT(RS) BRANCH IF SLAVE PRESENT 
SEV ;SET "Y’ TO INDICATE NO SLAVE 
1$: RTS PC 
; SUBROUTINE TO QUNETIALIZE RH CONTROLLER 
:CALL: JSR PC,RHINIT 
RHINIT: MOV #40, CS2(RS) 
nove O¥DRVNUN, CS2(RS) 
MOVB § 3#SLVNUM, (SP) 
MOV (SP)+. TCCRS) ;LOAD SLAVE # INTO TC REG 
BIS #NORML1, TC(RS) 
RTS PC 
; SUBROUTINE TO WATT FOR DRIVE READY (DRY) 
WAITRDY:CLR (PC)+ ;CLEAR WAIT TIMER 
WAITTIM: .WORD 0 
1S: STs S(RS) ;WAIT FOR READY TO SET 
INC WAITTIM s INCREMENT WAIT TIMER 
B ;BRANCH IF TIME HAS NOT EXPIRED 
TYPE, £. TIMEXP a: TIME EXPIRED WAITING FOR RDY’ 
BR 99 TAKE ERROR EXIT 
23: BIT #EOT,DS(RS) ‘CHECK FOR END OF TAPE 
BEQ 3$ “BRANCH IF NO EOT 
TYPE, M. NAM 
TYPE, M. -EQT $TYPE en “END oF TAPE’ 
JSR C, . REWIND 
BVS 995° : BRANCH iF AERROR ON REWIND 
JSR PC, WRITE sHBETE A RECORD 
Ge gg ES ‘BAIT FOR READY 
. BR ?TAKE ERROR EXIT 
3S: BIT KERR, DS(RS) :CHECK ERROR EXIT 


SEG 00S! 
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1079 ; SUBROUTINE TO REWIND A UNTT - + le thera COMBINATION) 
1080 ;CALL MOVB DRIVE #, J#URVNUM 


SEG 0052 
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DZTUGA.P11 O8-DEC-76 12:38 DRIVE SUBROUTINES SEG 00S4 
ine. ; neye SLAVE #, d#SLVNUM 
1086 : SUBROUTINE RETURNS TO CALLER WITH SELECTED SLAVE AT ‘BOT’, & ‘V’ SET IF 
1087 ;AN ERROR OCCURS. 


i283 
1886 005328 004767 177632 - REWIND: JSR PC,RHINIT ; INITIALIZE CONTROLLER 
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> b= b— b= bb 0 0 Bb Bb Bb 0 0 2 0 2 8 8 0 Bb 0 0 bb 0 bb bb be bs 9 bb - po bs 
0 0 0 Ob bs bh 0 0 0 bb be bs 8 bs be be pe ee 


SS 
oOnow 


5 
w 
eo 


EHH=SSBVRRLORESSSVRH POV S Sw NoM cow OOO VEN eae 
5 
Ww 
B= 
R 
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004767 


020000 


000130 


o055S4 


000074 


177777 
000031 
177S2e 


177702 


000012 
000012 


000012 


000006 
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JSR R3, TMCMD ;G0 TO TM ht SUBROUTINE 


-WORD OQ BUS ADDRESS (NOT USED) 
- WORD H WORD COUNT (NOT_USED) 
- WORD ;FRAME COUNT (NOT USED) 
WORD RWD ; REWIND COMMAND 
INC (RS) ;SET 'GO’ BIT 

1$: | Be #BOT,DS(RS) ;BRANCH IF ’BOT’ SET 
BIT #ERR,DS(RS) ;CHECK ERROR BIT 
BNE 995 ;BRANCH IF ERROR BIT SET 
BR 1$ 

es: BIT #PIP,DS(RS) ;WAIT FOR TAPE MOTION TO STOP 
BNE es 
BR 100$ 

99$: SEV 


100$: RTS PC 
;SUBROUTINE TO WRITE 25&. WORD RECORD 
CALL: JSR PC WRITE 


WRITE: JSR R3, TMCMD :GO TO TM COMMAND SUBROUTINE 
-WORD WTBUF BUS ADDRESS 
"WORD WROCNT ‘WORD CO 
"WORD FRMCNT :FRAME COUNT 
alQRD FD ;WRITE FORWARD CCMMAND 


; SUBROUTINE TO READ A 256. WORD RECORD. 
;CALL: JSR PC, READ 


READ: JSR R3, J#TMCMD 
WORD RDBUF 


“WORD WRDCNT 
“WORD = FRMCNT :2°S COMPLEMENT OF af RANE COUNT 


;ADDRESS OF READ BUFFER 
:2°S COMPLEMENT OF WORD COUNT 


“WORD  RDFWD READ FORWARD COMMAN 
RTS PC 

; SUBROUTINE TO INITIATE READ REVERSE COMMAND 

“CALL: JSR PC, REVRD 

REVRD: JSR R3, TMCM 
WORD RDBUF+2S6 sADDRESS OF READ REVERSE BUFFER 
WORD  WROCNT ig, S COM MPLEMENT OF WORD COUNT 
WORD  FRMCNT *S COMPLEMENT OF FRAME COUNT 


;READ REVERSE COMMAND 


;SUBROUTINE TO SPACE FORWARD 1 RECORD 
FWDSPC: MOV #-1 FCC(RS) ;LOAD Howe COUNT 


MOV aSPCEUD+ (RS) :LOAD COMM 
JSR PC, WAITRDY “WAIT FOR READY 
RTS PC’ : RETURN 


;SUBROUTINE TO WRITE A RECORD AND BACK SPACE OVER THE RECORD. 
WRT.BK: JSR PC WRITE :WRITE THE RECORD 


SES OOSS 
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BNL ro OD VOL eore 


TOTTI ee ee ee ee he he ee he he he ee be be be he be bs pe pe pp 
SBS 
—-Ow) 


bb bb 0 bb = 0 bb bb 0 0 0 2 0 0 8 = 2 0 8 2 be bb 8 0 2 0 ee 
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177506 
177777 
000033 
177466 
177166 


ocooo4 
000002 
000006 


000030 
001144 


177760 
000260 


000030 


177760 
000260 


000030 


177760 
000260 


000030 


177760 
000260 


001144 


o00006 


DRIVE SUBROUTINES 


INC (RS) ;SET ‘GO’ BIT 
JSR PC, WAITRDY 
BVS 2s 
MOV #-1,FC(RS) sLOAD RECORD COUNT 
MOV aSPCREV+1, (RS) “LOAD COMMAND 
Jak PC, WAITRDY 
1$: JSR PC, DELAY ;WAIT FOR TAPE MOTION TO STOP 
2g: RTS PC 
; SUBROUTINE TO LOAD A COMMAND 
-CALL: JSR R3, TMCMD 
: .WORD BUS ADDRESS 
: “WORD WORD C9 NT (2’S COMPLEMENT) 
: "WORD FRAME COUNT (2’S COMPLEMENT) 
: WORD COMMAND 
TMCMD: MOV (R3)+,BA(RS) ;LOAD BUS ADDRESS 
MOV (R3)+/ WC (RS) ‘LOAD WORD COUNT 
MOV (R3)+° FC (RS) ‘LOAD FRAME COUNT 
MOV (R3)+, (RS) LOAD COMMAND 
RTS R3 : RETURN 


; SUBROUTINE TO PRINT TU16 SERIAL NUMBER 
; JSR PC, SNPT 


SNPT: MOV SN(RS) ,R3 


OV #ODIGITS,R1 

SWAB. R3 

ROR R3 

ROR R3 

ROR R3 

ROR R3 ;GET FIRST DIGIT 
BIC #177760,R3 

BIS #260, R3 


MOVB RS, (R1)+ 
MOV SN(RS),R3 


BIC 1 Ty 


#260,R 
MOVB 3, (RI)+ 
MOV SN(RS),R3 


ROR R3 
ROR R3 


R 
BIC #177760,R3 
R3 


;FILL FIRST DIGIT 


;GET SECOND DIGIT 


;GET THIRD DIGIT 


URE ;GET FOURTH DIGIT 
TYPE, ODIGITS ; TYPE SERIAL NUMBER 
RTS PC ; RETURN 


SEQ COSE 


EE PMO aes ane ea 
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012706 
013746 


013737 


012737 


000600 
000008 
000004 
005760 
177777 


000176 
000004 


000006 
000176 


001010 


013716 
003650 


000004 
173024 


173010 


091000 


oooco4 


oc0006 


001010 


000004 
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-SBTTL PROGRAM INITIALIZATION 


INIT: MOV #STKPTR, SP SET STACK PTR 
SUSWR: MOV a#6,-(SP) ;SAVE VECTORS 
MOV ae4’-(SP) 
MOV #61$, 084 SET UP FOR TIMEOUT 
CHP ¥1,98 , OSWR sREFERENEE HARDWARE SWITCH REGISTER 
R 6 
61$: CMP (SP)+. (SP)+ ;ADJUST STA 
605: MOV aSur eG, SWR POINT TO SOF TMARE SWITCH REG 
623: MOV (SP)+, aa4 ‘RESTORE VECTORS 
MOV (SP)+’ deb 
CMP #SWREG, J#SWR 
BNE 64S 
JSR PC, CNTLU 
64$: CLR guPRGrLG ;CLEAR PROGRAM FLAG 
€LR #ITCN ‘CLEAR ITERATION COUNT 
CLRB aaTSTNUM :SET TEST # O 
CLRE OHERELG : CLEAR PRROR FLAG 
€L ASFLG ‘CLEAR ASK FLAG 
MOV #ERRVEC+2, JHERRVEC 
MOV #RTI, JHERRVEC+2 ;CHECK IF LP’ IS AVAILABLE 
2s: LR aeINGUF 
TYPE, CR 
TYPE; M.NAM :TYPE TITLE 
ae ;ASK USER TO TYPE CONT BASE ADRS 
JSR c aiNeur :GET USER INPUT 
ug; ISR AD ‘CONVERT ASCII TO OCTAL 
MOV PROC THLO. ae TMBASE SET NEW ADDRESS 
Ss: MOV Je TMBASE , RS 
; ROUTINE To CHECK IF CONTROLLER (RH11) IS BVATLARBLE “ 
TST (RS) !BRANCH IF CONTROLLER AVAIL 
BCC 6$ 
TYPE, E.NCON 
BR INIT ; j os 
6S: MOY #ERRTRP, SHERRVEC :SET ERROR TRAP VECTOR 
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1246 - ROUTINE 9 GET TMO2 DRIVES USER DESIRES TO TEST 
1247 006140 105037 001123 ORIVES: CLRB  a@#ERFLG :CLEAR ERROR FLAG 
1248 006144 012701 001154 MOV WORVTBL, Rl : MARK L ORIVES AS NOT TO 
1249 150 Ole700 000004 MOV RO :BE TESTED. A °0’ INDICATES 
i250 154 005021 1$: CLR trio? : THAT A ORIVE IS NCT TO BE 
1251 006156 905300 DEC RO : TESTED 
ae 
1526 Bee} aera 013444 PYPE, 1. DAVS 
1254 006166 004767 175302 ISR PC. . INPUT ;GET USER INPUT 
1255 006172 0127 horse MOV #INBUF . RO 
1256 006176 122710 O00101 CMPBSesaw#’A, (RO) ;AN 'A’ SPECIFIES ALL 
1257 006202 001013 BNE 3$ DRIVES TO BE TESTED 
ies Beenie glove, Mois mv’ Seater ioe yori fea eee 
1260 ppesie pts7B4 iaret MOV #4, RO INDICATES THAT A DRIVE 
1261 O06220 012721 177777 2S: MOV #-1, (R1)+ is 70 BE TESTED 
leb2 006224 995309 DEC RO 
iBes 8 ane R CHKDRV :GO CHECK DRIVE AVAILABILITY 
1266 saeiie aaeien 4geT USER, SELECTED, DRIVES AND MARK EACH DRIVE SELECTED TO BE TESTED 
1268 ppeS3e Ageaig BEQ CHKORV 
1269 O06240 121027 o00054 CMPB —ss« (RO), #’, ;CHECK IF *COMMA’ 
1270 006244 001001 BNE 4g 
127) 108760 TST (RO)+ :STEP PTR PAST *COMMA’ 
1e7, 112001 - 4g: MOV (RO}s Rl 
1273 006252 042701 177770 BIC #177770 
1274 O06256 110761 177777 0oO01154 MOVB = = 1, GRABER 
1275 O06e64 O00240 NOP 
1276 006266 900761 BR 3$ 
1278 -ASCERTAIN THAT DRIVES Toe" S) SPECIFIED ARE AVAILABLE 
1279 006270 oos000 AHKDRY: CLR RO A O/-1 INDICATES THAT THE 
1280 006272 105760 001154 1S: TST8 DRVTBLCRO? :DRIVE IS NOT/IS TC BE TESTED 
1281 001005 BNE 3$ 
1282 006300 o05200 23: INC RO 
1283 006302 122700 oo0010 CMPB sw. , RO 
1284 001371 NE 1$ 
1285 1 421 R 4g 
ibe forse Que oaks =| TP RE ora ao IF BRL 
# 

15ee ppp as8 1023 BVC Be ye BIT SET 1 NDTSATES NOT AVAIL 
1289 006324 O00004 013763 TYPE, E.NORV 
1290 006330 116037 001132 o14015 MOVE’  DIGTAB(RO),a#E.NAVA :SET DRIVE # IN MESSAGE 
1291 006336 O00004 014015 TYPE, vA 
1292 006342 110637 601123 MOVE’ SP, asERFLG ;SET ERROR’ FLAG 
1293 O06346 105060 001154 CLRB = ORVTBL(RO) : MARK DRIVE UNAVAILABLE 
1294 006352 0007S BR 2$ *CHECK NEXT 
1295 906354 105737 001123 4g: TSTB @#ERFLG :G0 GET SLAVES NO ERROR 
Sap She aes ee 001124 ote SORAELG ;ASK USER TO RETYPE DRIVES IF 

e 4 
1298 BOE SEE 1654 BEQ RIVES :*ALL* NOT SPECIFIED 
1300 “ROUTINE TO GET SLAVES (TU16"S) USER DESIRES TO TEST 


1301 006370 i05037 (001123 SLAVES: CLRB QeERFLG CLEAR "ERROR* FLAG 
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4 
OC&ECE 


012701 
012700 
005021 


022700 
001367 
000434 


001164 
000040 


001164 
001154 


000010 
000010 


001124 
172326 


001124 
000915 
ono0s4 


177770 
177777 


001164 
001154 


000010 
000010 


013525 


1$: CLR 


4$: TSTB 


5S: MOV 
6$: MOV 


7$: CMPB 


8S: MOVB 


“ASCERTAIN THAT 
EHKSLY: CLR 


1$: TSTB 
BNE 
2$: INC 


O9-DEC-76 10:45 PAGE 10-4 


#SLVTBL,.R1 
#32. ,R0 
(R1)+ 

RO 

1$ 


RO 
#SLVTBL,R1 
paVTEL CAD) 


#8. ,R1 
RO 

#8. ,RO 
CHKSLV 
a#PRGFLG 


DRVNUM 
DIGTAB(RO), a8. DRY 


SP, J#PRGFLG 
#SLVTBL,RI 
#32. RO 
#-1, (R1)+ 
RO 
6$ 
J#PRGFLG 
CHKSLV 
#CR, (R3) 
(R3),#", 
8s 

(R3)+ 
(R3)+,R4 
#177770, R4 
a1, CRY) 


;MARK ALL SLAVES (64. ) 
;T0 BE TESTED.A O TNOICA oe THAT 
;A_DR cep S SLAVE IS NOT TO BE 


= DRIVE # FOR SLAVES 


POINTS TO DRIVE'S SLAVE 
| is me fer TESTED 


Next DRIVE’S 
DRIVE # 


oul" 


CHECK PN ALL I SRives CHECKED 
G0 CHECK SLAVE AVAILABILITY 
pen IF USER SELECTED ALL 
:GET DRIVE # 

;PREPARE USER ACTION MESSAGE 
;GET a INPUT 

“SET P TO USER INP 

‘BRANCH IF USER DOES UNoT WANT 
;*ALL’ SLAVES 

:SET "ALL’ INDICA 


TOR 
:MARK ALL SLAVES FOR ALL 
:DRIVES AS TO BE TESTED 


;BRANCH IF ALL WAS SELECTED 


a aa SELECTED SLAVES FOR 
:STEP PTR PAST *COMMA’ 


;AND MARK SELECED SLAVE 
AS TO BE TESTED 


0 (TUL6°S) SELECTED ARE AVAILABLE 


BSLV TBL Re 
DRVTBL (RO) 


7RO WILL CONTAIN THE DRIVE # 
1 THE SLAVE & 


;SET he TO SLAVE TABLE 
sBRANCH IF DRIVE SELECTED 
78 AV a FOR TEST 


INCREMENT DRIVE # 
;STEP SLA MWe ie RTO NEXT DRIVE'S 
; SLAVES. TO 1$ IF NOT ALL 


; DRIVES CHECKED OTHERWISE EXIT 


SEQ o0s9 
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OZTUGA.P11  O8-DEC-76 12:38 PROGRAM INITIALIZATION SEG c0Ec 
1358 006630 o0S001 3$: CLR R1 ;SET SLA #0 
1359 006632 10571 4: TSTB (R2) *BRANCH IF OR ve" S SLAVE IS SEL- 
1360 006634 0010 BNE £y ;ECTED FOR TEs 
1361 00520) Ss: NC R j INCRENE 
i262 40 0052 NC R sSTEP it NT T NekT *sLave 
1303 0664 d22701 000010 cre 48. ,RL 0 TO 4$ IF ALL SLAVES NOT 
1365 Boeee BOA seA BR 2 SHECKED GO TO 2$ ABOVE 
1367 006652 110037 001004 6S: MOVB = RO, a#DRVNUM ;PASS DRIVE & SLAVE # 
1368 OO6656 110137 9001005 MOVB RI, a8SLVNUM 
1369 62 004737 O95144 JSR PC aeSLVAVA ;AND CHECK IF AVAILABLE 
i371 DOEE?D Licaa? OBII3e C1400 mv TAB(RO) .a¥E. ORV ty RATES ERROR’ PREPARE EOROR 
13 tas 7 ooLI3e Bore MOV vB Rf TA (RD)? 3e “NAVA ‘hee ofa. 
137 TYPE ,E.N 
1378 006719 110637 001123 Hove" "SP, gHERELS SEEnR epee TBOLE ER 
i378 Bpe ote bBagdS 28 S$ ET Ne SLAVE 
1378 006720 105737 001123 73: TSTB @#ERFLG ;BRANCH IF NO ERROR 
1379 006724 001403 BEQ 10 $ 
1380 006726 105737 001124 TSTB #PRGFLG ;BRANCH IF NOT ALL’ 
1381 006732 OO1616 BEQ SLAVES “ASK USER TO RETYPE SLAVES 
138¢ 006734 012737 003650 O00004 100%: MOV #ERRTRP, JHERRVEC 
1384 ;SCAN DIVE AND SLAVE | TABLE FOR DRIVE/SLAVE COMBINATION TO TEST 
1385 OO6742 105037 001004 CLRB = aKDRV ;SET DRIVE AND SLAVE # C 
1386 006746 105037 O0100s CLRB ss WSL 
1387 006752 012737 O01164 o01G06 MOV eSEVTBL MaWSLVPTR :SET PTR TO SLAVE TABLE 
1388 006760 105037 001125 CLRB asUNTFND :CLEAR "UNIT FOUND’ IND. 
1390 O06764 113700 o01004 BEGIN: MOVYB  aa#DRVNUM,RO :GET DRIVE # 


1391 006770 113701 001905 MOVB @&SLYNUM,R1 :AND SLAVE & 


OZTUG-A _TMO2/TULET ORIVE FUNCTION TIMER MACY11 27(1006) 
O8-DEC-76 12:38 


OZTUGA.P11 


097052 
007056 


00 
000761 


110637 
110037 


001006 
Bois 


000010 


000010 
012732 


000010 


1$: 


2s: 


3$: 


4$: 


JOS 


O9-DEC-76 10:45 PAGE le 
PROGRAM INITIALIZATION 


JeSLVPTR, 82 
DRVTBL (RO) 


SP, J#UNTFND 
RO; J#DRVNUM 


;GET SLAVE P 
;BRANCH IF RIVE AVAIL TO TEST 


aN ‘SIEP SR TO NEXT DRIVE’S 
INCRE 


Bde Shrlath CONTINUE 
FOR NEXT ‘UNIT’ 


renee IF SLAVE ON DRIVE IS 
Pre Tote] sr STEP 


Rg af vet 

UNTIL "ALL AVES CHECKED 
S WHEN " SLAVES CHECKED 
;SET SLAVE # 9 
: AND CONTINUE SCAN 


INDICATE THAT A *UNIT’ IS FOUND 
SET DRIVE 3 


SEG O0E: 


DZTUG-A TMO2/TULEJ we Ng = TIMER MACY11 27(1006) 


DZTUGA.P11 


Barbee 


O8-DEC-76 


a18237 
10S737 
112767 


000137 


Ooi00e 


001130 


000100 
014346 


1138 
610000 


001124 
012764 


172022 


177560 


14B50 
14543 
00026 


014S43 


001002 


O9-DEC-76 10:45 PAGE 16 


PROGRAM INITIALIZATION 


S$: 


6S: 


73: 


TYPHOR: 


1$: 


MOVB 1, as#SLVNUM ;SET SLAVE # 
MOV R2, J#SLYPTR :SAVE SLAVE "PTR 
TSTB asBASFLG 
BNE 7§ 
MOVB  #1,ASFLG 
CLRB  _@#PRGFLG ; CLEAR PROGRAM INDICATOR 
_ TYPE, I.SKEW : ASK Senet HE WANT ne RUN SKEW TESTS 
JSR PC, . INPUT 
MOV #INBUF ,R3 GET REPL 
CHP #20, (RS) * BRANCH TF ’NO’ (0) 
CMPB Ss #1, (RD Hye K IF ’YES’ (1) 
BNE S$ eNE ETHER 0 ASK AGAIN 
MOVB =‘ (R3), #PRGFLG 
BR 7§ 
R #NRZF : ATOR 
RAE ARLE PREC one 
PC, . INPUT 
ait #INBUF RB ;GET REP 
CHP #70, (RS) : BRANCH IF ’NO’ (0) 
CMPB 3 s#”11, (R33) ;CHECK IF "YES" (1) 
BNE 6$ “QSK AGAIN IF NEITHER 
MOVB  (R3),9WNRZFLG SET INDICATOR 
BIS #100, aaTKS ;SET KEYBOARD IE BIT 
MOVE’ BEB: ,2#L.DRV ;SET DRIVE # 
MOV GTAB(R1) a#l.SLV ‘AND SLAVE # 
MOVB 49, a “gHAN :GET SLAVES * CHANNEL TYPE 
git cH?, DT(RS 
MOVB a7, O#L. CHAN ;SET 7 CHANNEL 
TYPE,L.HDRe. 
JSR C. SNPT :GO PRINT SERIAL NUMBER 
TYPE,L.HDR3 
NOV #7STQ01 , @¥SCPADR ;SET *SCOPE’ ADDRESS FOR FIRST TEST 
R00 af CRO ;RO CONTAINS ADDRESS OF FC REG 
ADD #05,R1 ;R1_ CONTAINS ADDRESS OF DS REG 
MOV #TIMER,R3 *SET JUMP ADDRESS TO TIMER 
TSTB § a&PRGFLG :BRANCH IF NOT SKEW TESTS 
BEQ TSTOOL 
IMP aaSKEWTST 


SEG 0062 


perieone Twoe/Tu}6) DRIVE FUNCTION TIMER MACY11 27(1006) O9-DEC-76 10:4S PAGE 16-1 
11 12:38 START OF TESTS 


OZTUGA.P 


OWONOWS We 


tu 


0074Se 


007474 
007476 


007500 
007506 
00751e 
007514 
007516 
007520 
007524 


O8-DEC-76 


104400 
104000 


112737 
004767 
005215 


005710 


001017 


000001 O0112e 
737 


6 
1 Fae 


000032 
004444 
175624 
175066 


oo000e 
174710 


000032 
OO4444 
175546 
175010 


000003 
175706 


040000 


001122 


001122 


TTL START OF TESTS 
iThis oi Hig ficacime” RCCELERATION DELAY REGUIRED TO 
;MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
:FROM DEAD STOP BEFORE STARTING TO TRANSFER DATA. 


; THIS TEST ae gt its nal ’GO’=1 TO eee esi 


tsr001: ay 1é RETURN N PC FROM TIMER 
Mee Pe Sav0 a, WIND SC aVE | 
BVS ae :BRANCH IF ERROR ON REWIN ND 
yeh f i hon if. | 
INC ‘SET 'GO’ BIT | 

1S: I T TC(RS) BRANCH WHEN 'ACCL’=0 | 
IMP TIMER(R3) ;GO TO TIMER & RETURN VIA R2 

2s: JSR PC WAITRDY ;WAIT FOR COMMAND TO FINISH 
BVS 99 ; BRANCH IF ERROR 
ISR PC. TIMOK GO CHECK TIME 
BR 100s 

99$: HLT 

100$: SCOPE 


;TEST O02 ~ WRITE START 


;SET RETURN PC FROM TIMER 


;GO TO TIMER & RETURN VIA Re 


G CHECK TIME RECORDED 


THIS TST MEASURES TIME FROM ’GO0"=1 TO 'ACCL’ 
tsT002: MOVB #2, 04 TSTN SET TEST #2 
" JSR : INITIATE WRITE COMMAND 
MOV “ 18 Re 
JSR PC tion 
INC (R5) ;SET 'GO’ BIT 
1S: TST TC(RS) ;BRANCH WHEN ‘ACCL’=0 
JMP TIMER(R3) 
2s: JSR PC, WAITRDY ;WAIT FOR READY 
BYS ; BRANCH IF ERROR 
JSR PC, TIMOK 
BR 100s ttt VIA SCOPE 
99$: HLT ;REPORT ERROR 
100$: SCOPE 


; TEST OO3- WRITE SHUTDOWN 


: THIS TEST MEASURES TIME FROM "FC REG’=0 10 " SHON’ =1. 
tST003: MOVE #3, a8TSTNUM T#3 
PC’ WRITE INITIATE WRITE COMMAND 
INC (RS) *SET *GO’ BIT 
1S: TST {R0) ;BRANCH WHEN WRITING FINISHED 
BIT #ERR, (RL) ;MONITOR ERROR BIT 
BNE 99$ 
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DZTUGA.P11 


007526 
007530 


pf 7a 


007620 
007624 
007626 


007634 
eres 

ens 
007644 
nie 50 
007652 
007656 

D0766c 

007664 
007670 


007672 
007674 


007716: 


O8-DEC-76 le 


000772 


104400 
104000 


Tite fd 


00 
012702 


:38 


174620 
oooo20 
oo4444 
1754S6 
174720 


oooo04 
175616 


040000 


000020 
040000 


174512 
oo0020 
OO4444 
175350 
174612 


000005 
175426 


175520 
007730 


START OF TESTS 


2s: 


3$: 


4§: 


993: 
100S: 


;TEST O04 - WRITE SETTLEDOWN 
: THIS TEST MEASURE: 
001122 STOO4: MOvB 


1$: 


2$: 


3$: 


S$: 


995: 
100$: 


H 
SCOPE 


INC 


HLT 
SCOPE 


OS-DEC-76 10:45 PAGE 16-2 


1$ 


Pi MON 
#SOWN, (R1) 
tf 
TIMER(R3) 
PC, WAITRDY 


PC, TIMOK 
100$ 


#4, 8TSTNUM 
PC’ WRIT 
(RS) 

(RO) 

2 

#ERR, (R1) 
99$ 

i$ 

#SDWN, (R1) 
#ERR, (R1) 
99$ 


PC, TIMON 
PC’ RE 
#SOWN, (RL) 
TIMER(R3) 
PC. WAITRDY 
9$ 


g 
PC, TIMOK 
100$ 


s TEST 00S - READ FROM 


HI 
001122 tsrogs. MOVB 
JSR 


BYVS 
JSR 
MOV 


BOT 
S TEST MEASURES Fe Bp ’GO'=1 TO 


99 
PC we 


#i$,R 


My RETURN P PC FROM TIMER 
;BRANCH WHEN DS <SDWN> SETS 


;GO TO TIMER & RETURN VIA Re 
;WAIT FOR READY 

;GO CHECK TIME RECORDED 
;REPORT ERROR 


S TIME to — *SWON’=1 TO *SWDN’=0. 


;SET ’GO’ BIT 
;BRANCH WHEN WRITING FINISHED 
;CHECK ERROR BIT 


;WAIT FOR ASSERTION OF *SDWN’ 
;MONITOR ERROR BIT 


; TURN TIMER ON 
;SET RETURN PC FROM TIMER 
BRANCH WHEN SWDN CLEARS 


;GO TO TIMER & RETURN VIA Re 
;WAIT FOR READY 


*ACCL’=0. 


;SET TEST bey 


REWIND SLAVE 
;BRANCH IF ERROR ON REWIND 


;SET RETURN PC FROM TIMER 


SES CO&4 
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DZTUGA.P11 08-DEC-76 12:38 START OF TESTS SEQ OOES 

1577 004767 174426 JSR PC, TIMON sTURN TIMER ON 
1578 poe oSe 005215 ‘ INC (RS) :SET 'GO’ BI 

907730 005765 000032 1S: TST TC(RS) ;BRANCH WHEN 'ACCL’ RESETS 
i81 007734 100002 BPL 
1582 007736 000163 oo4444 IMP TIMER(R3) ;GO TO TIMER & RETURN VIA R2 
1584 007742 004767 175264 2S: JSR PC, WAITRDY etn Te ER READY 
1egP ppe5 Ap ap3 174526 if Be TIMOK * CHECK RECORRE DED TIME 
1587 007754 000401 BR 10O$ 
1589 007756 104400 99$: HLT 
1590 007760 104000 100$: SCOPE 

TEST - READ START 

1B3 i Thee pe, ME RCURES IME FROM ’GO’=1 TO ’ACCL’=0. 
1594 007762 112737 000006 ‘001122 STOO: MOVB #6, a8TSTNUM SET TEST #6 
1595 007770 004767 175516 SR pC WRT. BK ‘WRITE A RECORD & BACK SPACE 
i 35 007774 a3 V § 

007771 47 175434 5 C,READ 
teas Gi0006 Hare Soaode Hoy ais Re TTRNTTINER ON no TIMER 
1609 Bibbis = ppeees INC (RB) ISET GO’ BIT 
160 910014 005765 000032 1S: Ist TC(RS) ;BRANCH WHEN ’ACCL' RESETS 
16 4% O100e2 6004 004444 IMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
169 010026 004767 175200 2S: JSR PC, WAITRDY 
1607 “010032 102403 BVS 
1608 010034 004767 174442 JSR PC, TIMOK 
1603 010040 o00401 BR 100$ 
1611 o10042 104400 Q9$: HLT 
lele 010044 104000 i00$: SCOPE 
1614: TEST 007 _- READ SHUTDOWN 
1615 THIS TEST MEASURES TIME FROM ‘FC REG’=FRAME COUNT a *SWON’ =1. 
1616 O1004% 112737 000007 OO01122 TSTOO7: MOVB . #7,aK#TSTN °S 
1617 010054 004767 175432 ” JSR PC oRT BK ‘WRITE A RECORD & BACK SPACE 
1618 010060 102430 BVS 99$ :BRANCH IF ERROR 
1619 0610062 O04767 175350 JS PC, READ 
1620 010066 0521S INC (RS) ;SET ’GO’ BIT 
1 10070 - 022710 o0040 : CMP #-FRMCNT, (RO) ;WAIT FOR FRAME COUNT TO 
1623_ staid nated tun is BEQ 2s = & OF FRAMES WaT tEN 
1624 010076 032711 o40000 BIT #ERR, (RL) ‘MONITOR ERROR B1T 
1625 010102 001017 BNE 99$ 
ecb 010104 BR is . 
ath 61Gibe 7 174242 eS: sR. PC, TINON TURN TIMER ON 
BS BHR BEY con Be ow BLS te 
test Bioie0 Bai aoe BNE = 


= 


DZTUG-A_TMA2/TU1LE eae FUNCTION TIMER MACY11 27(1006) O9-DEC-76 10:45 PAGE 16-4 


DZTUGA.P11 O8-DEC-76 12:38 START OF TESTS SEG OO&E 
1632 010122 000163 oo4444 IMP TIMER(R3) ;GO TO TIMER & RETURN VIA R2 
1634 010126 004767 175100 3$: JSR PC, WAITRDY 
1e3e OLOLSH BONE? 174342 PER BC TINOK 
1637 10140 B504B1 aR 100s ° 
1639 010142 104400 99$: HLT : ;REPORT ERROR 
1640 010144 104000 100$: SCOPE 
1642 sTEST 010 - READ SETTLEDOWN 
1643 jTHIS Test MEASURES TIME FROM ’SWON’=1 TO ’SWON’=0. 
tov) pidiag 412737 foo0ig 01122 TSTOLO: Rove aif, geTSTMAM i eET RETURN PC FROM TIMER 
Bue tot oR OSE S3e JSR PC, WRT. BK {WRITE A RECORD & BACK SPACE 
ioe ELBE GBire? 17sow Batre 
1649 010172 o0sS215 INC (RS) ;SET 'GO’ BIT 
1651 010174 105711 1S: TSTB ss CRI) ;WAIT FOR READY 
1652 010176 100404 BMI 2 *BRANCH WHEN SET 
1653 010200 032711 o4o000 BIT #ERR, (R1) *CHECK ERROR BIT 
1654 010204 O01026 BNE 995 
1655 010206 000772 BR i$ 
1657 010210 032711 oo0020 2S: BIT #SDWN, (R1) ;WAIT FOR ASSERTION OF *SDWN’ 
1658 010214 0601004 BNE 
1659 010216 032711 o4o000 BIT #ERR, (R1) ;MONITOR ERROR BIT 
1660 010222 001017 BNE 99$ 
1661 010224 71 BR 2g 
1662 
1663 010226 3$: 

(1) O10226 OO04767 174122 JSR PC, TIMON ; TURN TIMER ON 
1664 010232 032765 000020 ooon12 4s: BIT #SDWN, DS(RS) WAIT FOR NEGATION OF SDWN 
1665 010240 901402 BEG 
1666 010242 000163 oc4444 JMP TIMER(R3) :GO TO TIMER & RETURN VIA Re 
1668 0102% 004767 174760 cs: JSR PC, WAITRDY 
1663 010252 102403 BVS 
1670 010254 004767 174222 JSR PC. TIMOK 
1671 010260 000401 BR 100$ 
1673 010262 104400 99$: HLT 
1674 O10264 104000 100$: SCOPE 
1675" 
1676 

1677 :TEST D11-READ REVERSE START 

1678 HIS TEST MEASURES TIME FROM 'GO’=1 TO ‘ACCL’=0. 

1679 010266 112737 000011 001122 teroiL. MOVB #11, as TSTNUM 

680 010274 012702 010332 MOV #15/R ;SET RETURN PC FROM TIMER 
1681 619300 004767 175114 ISR BC uRTTE ; WRITE A RECORD 

1682 010304 Oo0S215 INC *SET *GO’ BIT 

1683 010306 004767 174720 JSR PC, WAITRDY 

1684 O10312 102422 BVS 99$ 

685 010314 004767 174420 ISR PC, DELAY ;WAIT FOR TAPE MOTION TO STOP 
1686 010320 004767 175130 ISR PC; REVRD 
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OZTUGA.P11  O8-DEC-76 12:38 START OF TESTS SEG 9067 
1687 010324 767 174024 JSR PC, TIMON : TURN TIMER ON 
1688 518350 pets INC (RS) :SET 'GO’ BIT 
1690 910332 005765 000032 1S: Ist TC(RS) ;BRANCH WHEN ’ACCL’ = 0 
ieee Bis38 BOOTS = ooW44N SF PmeRCRG) 560 TO TIMER & RETURN VIA R2 
1694 010344 004767 174662 2s: JSR PC, WAITRDY 
teae BiB3e9 ARG Re ag wt teetctcwes 
476? 174124 TIMOK 

1697 010356 000401 BR 100s ‘ 
1699 010360 104400 99$: HLT 
1700 010362 104000 i00$: SCOPE 
1702 : TEST 012-READ REVERSE SHUTDOWN 
1703 ‘THIS TEST MEASURES TIME FROM 'FC REG’ = FRAME COUNT TO ’SDWN’=1. 
1704 010364 112737 000012 o01122 tSTOle: MOvB #12, a8TSTNUM 

1705 010372 O12702 o1044e MOV :SET RETURN PC FROM TIMER 
706 010376 OO4767 175016 ISR PC, WRITE sHRETE A “RECORD 
1707 010402 o0s215 INC (RS) :SET 'GO’ BIT 
1708 O10404 004 174622 JSR PC WAITRDY 
1709 010410 102427 BVS 
1710 O10412 004767 175036 ISR PC, REVRD 
ra 010416 005215 INC (RS) :SET 'GO’ BIT 
1713 010420 22710 oo0400 1S: CMP #-FRMCNT, (RO) ; BRANCH WHEN FRAME COUNT 
1714 010424 001404 BEG F RECORD WRITTEN 
1715 010426 932711 o40000 BIT #ERR, (R1) i MONITOR ERROR BIT IN ‘DS’ REG 
1716 010432 601016 BNE 99$ 
1717 610434 000771 BR i$ 
1719 010436 2S: 

(1) O10436 004767 173712 JSR PC, TIMON TURN TIMER ON 
1720 b1Ose O37 000020 38: BIT #SOWN, (RL) :BRANCH WHEN SDWN SETS 
17ee 010450 OO0i63 oo4w444 IMP TIMER(R3) :GO TO TIMER & RETURN VIA Re 
1724 O01 004767 174552 ug: JSR PC, WAITRDY ;WAIT FOR READY 
1725 010460 102403 BVS 
1726 O10462 004767 174014 ISR PC. TIMOK 
i?e? 010466 000401 BR 100$ 
1729 010470 104400 99$: HLT 
1730 010472 104000 i00$: SCOPE 
1732 ; TEST 013-READ REVERSE SETTLEDOWN 

18 sry ierer gomoig couse itiar'ape a gitenun “oY TO Sw 

1735 Bt Bene le702 O10566 MOV #43’ :SET RETURN PC FROM TIMER 
1736 O10506 004767 174706 JSR PC, WRITE * WRI TE A RECORD 

1737 019512 005215 INC = (RS) \ ;SET BIT 

1738 010514 004767 174512 ISR PC. WAITRDY 

1739 010520 1024 BYS 

1740 O10S22 004767 174726 JSR PC, REVRD 

1741 010526 oos2is INC (RS) :SET °GO’ BIT 


OZTUG-A_TMO2/TULEI a FUNCTION TIMER MACY11 27( 1006) 
76 12:38 START OF 


OZTUGA.P11  O8-DEC- TESTS 
1742 
1743 010530 105711 1S: TSTB 
1744 010532 100404 BMI 
1745 010534 032711 040000 SIT 
i748 010540 001025 BNE 
17u? 010542 000772 BR 
1749 010544 032711 900020 2S: BIT 
1750 O105S0 001004 BNE 
1751 010552 032711 o40000 BIT 
1752 010556 001016 BNE 
1753 010560 00077 BR 
1755 010562 38: 

(1) O10562 004767 173566 JSR 
1756 O10566 032711 O00020 4g: BIT 
1757 010572 O0140e BEQ 
1758 010574 000:63 o04444 JMP 
1760 O10600 904767 174426 Ss: JSR 
1761 010604 102403 BVS 
1762 010606 O04767 173670 ISR 
1763 0i0612 oO0401 BR 
1785 010614 104400 - 99$: HLT 
1766 010616 104000 . 100$: SCOPE 
1768 -REWIND DRIVE 
1769 010620 A: 

(1) 010620 004767 174512 ISR 

(1) 010604 102401 BVS 
1770 010626 102002 BYC 
1771 010630 104400 99$: HLT 
1772 010632 000772 BR 
1773 010634 1008: 

1774 

1775 

1776 S TEST MEASURES 
1777, 010634 112737 000014 001122 iota 014: MOVB 
1778 010642 O12702 010674 ‘ MOV 
1779 O10646 004767 174546 JSR 
1780 010652 005215 INC 
1781 010654 004767 1743S2 JSR 
1782 010660 102420 BVS 
1784 O10662 004767 174566 13: JSR 
1785 O10666 004767 173462 JSR 
1786 010672 Oo05215 INC 
1788 010674 005765 o00032 2s: TST 
1789 010700 100002 BPL 
1730 010702 000163 oD4444 IMP 
1792 010706 004767 174320 33: JSR 
1793 010712 102403 BYS 
1794 010714 004767 173562 JSR 
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(R1) 


- #ERR, (R1) 
99S 


is 
BSDWN, (R1) 
#ERR, (R1) 
995 


PC, TIMON 
#SOWN, (R1) 


TIMER(R3) 
PC WAITRDY 


PC, TIMOK 
100s 


PC, .REWIND 
99$ 
i00$ 


A 


;BRANCH WHEN 
;READY SETS 


; TURN TIMER ON 
BRANCH WHEN SWON = 0 


;GO TO TIMER & RETURN VIA Re 
;WAIT FOR READY 


;REWIND SLAVE 
BRANCH IF ERROR ON REWIND 


i TEST O14-TURN AROUND DELAY (FORWARD-REVERSE ) 


#20’ Re 
PC WRITE 
PC. WAITRDY 
99$ 
PC, REVRD 
PC’ TIMON 
(RS) 
TC(RS) 
TIMER(R3) 
PC, WAITRDY 


99 
PC, TIMOK 


TIME_FROM 
#14, d8TSTNUM 


*GO’=1 (READ REVERSE) TO ‘ACCL’=0 


;SET we PC FROM TIMER 
;WRITE A RECORD 
;SET *GO’ BIT 


;READ THE RECORD (REVERSE) 
;TURN TIMER ON 
SET °GO’ BIT 


;WAIT FOR *ACCL’ = 0 
;GO TO TIMER & RETURN VIA Re 


SEG 0062 


OZTUG-A_TMO2/TULEJ DRIVE FUNCTION TIMER MACY11 27(1006) 
12:38 START OF TESTS 


DZTUGA.P11 O8-DEC-76 1 
1795 010720 O00401 
ES cures 190 
17 Bored 14000 
i799 
1800 
180 
18 010726 112737 
ee fee tire 
He Ele Bee 
18068 Q10746 004767 
1807 Ol 1024 
1808 010754 004767 
yt 10760 005215 
1811 010762 004767 
iets 010766 102420 
1814 770 Q047 g 
HS BIBER BRE 
1818 011000 o0se15 
1818 011002 005765 
1819 Oli 100002 
1820 O11 000163 
1821 
1g2e O11 004767 
1823 O11 102403 
1824 O11 004767 
1825 O11 000401 
1826 
fe, SHES 1S 
ies 
1830 
1831 O11 112737 
1836 011042 Q1le7 
1833 O11 00476 
1834 O11 005215 
1835 011054 76 
1836 O11 Oe4e 
1837 O11 004767 
1838 O11 004767 
1839 011072 004767 
tbat 011076 o0S215 
os tht ete 
ies BLUR BAR 
1845 
is GI oon 
1848 Biitie Apare? 
1849 Olllee COO4O1 


000015 O01lee2 
011002 


174454 
174260 
174474 


174244 


74442 
73354 
000032 
cou444 
174212 
1734S4 


000016 
011100 
174346 
174152 
173652 


174362 
173256 


OO4444 
174116 
173360 


001122 


993: 
100$: 


HLT 
SCOPE 
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100$ 


s JEST 015- TURN AROUND Le. (REVERSE -F ORWARD ) 
+itts TES TEST ove 818,281 TI 


es: 


3$: 


99$: 
100$: 


; TEST O16-GarP SIZE (STOP HALF) 
VB #16,d8TSTNUM 


TSTOl6: M 


1$: 


HLT 
SCOPE 


PC aa 
PC, WAITRDY 


PC, REVRD 
(RS) 


PC, WAITRDY 
99g 

pe GON 
(RS) 
TC(RS) 
TIMER(R3) 
PC, WAITRDY 


99 
PC. TIMOK 
100$ 


% 

PC WRITE 
(RS) 

PC. WAITRDY 
99$ 

PC, DELA’’ 


(RO) 
Finer cra) 


PC, WAITRDY 
99$ 

PC. TIMOK 
100s 


=1 (READ) TO ’ACCL’=0. 
;SET RETURN PC FROM TIMER 
RECORD 


WAIT FOR READY 
;READ A RECORD IN THE 
;SET 'GO’ BIT 


;READ RECORD FORWARD 

; TURN TIMER ON 

;SET °GO’ BIT 

;WAIT FOR ’ACCL’ = 0 

;GO TO TIMER & RETURN VIA R2 


; SET peru ecoRO TIMER 


WRITE AR 
;SET "GO" 


;DELAY 350 
; TURN 
;SET ° 


;WAIT FOR FRAME COUNT > © 
;G0 TO TIMER & RETURN VIA Re 
;WAIT FOR READY BIT 70 SET 


;CHECK TIME 


MS 
; READ at a RECORD 
TIMER ON 


SEG 0069 
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DZTUGA.P11 O8-DEC-76 12:38 START OF TESTS SEG 0072 
1851 011124 104400 995: 
185 Olll26 104000 i00$: HOPE 
1854 - TEST 017-GAP SIZE (START HALF) 
i8SS 011130 112737 000017 001122 TSTO17: MOVB #17, a8TSTNUM 
1856 011136 O12792 011210 MOV #1$;Re ;SET RETUAN PC FROM TIMER 
1857 011142 604767 174252 ISR be WRITE WRITE H RECORD 
1858 011146 9o0S215 INC (RS) : SET 60" BIT 
1859 011150 004767 174056 JSR PC WAITRDY ‘WAIT FOR READY 
1860 011154 102427 BVS 95% ‘. 
1861 011156 004767 174272 JSR PC, REVRD ;READ REVERSE THE RECORD 
1862 O11162 o0S215 INC (RS) ;SET *GO’ BIT 
1863 O11164 004767 174042 JSR PC. WAITRDY ‘WAIT FOR 
1864 011170 102421 BVS 99¢ ; BRANCH ON ERR 
1865 011172 OO04767 17354e JSR PC, DELAY WAIT FOR TAPE OROTION TO STOP 
1866 011176 OO4767 174234 ISR READ RECORD 
1867 011202 004767 173146 JSR PC’ TIMON :TURN TIMER ON 
1868 011206 005215 INC (RS) :SET 'GO’ BIT 
1870 011210 005710 18: TST (RO) sWAIT FOR FRAME COUNT > 0 
1871 Ollele o01002 BNE 2g 
187¢ 011214 000163 oo4444 IMP TIMER(R3) :GO TO TIMER 8 RETURN VIA Re 
1874 011220 oO04767 174006 2s: ISR PC, WAITRDY ;WAIT FOR READY 
1875 Ollec4 102403 BVS 
1876 011226 004767 173250 ISR PC, TIMOK :CHECK TIME 
1877 011232 000401 BR 100$ 
1879 011234 104400 99$: HLT 
1880 011236 1C4000 i00$: SCOPE 
1982 sTEST O20- GAP SIZE (INTERRECORD) 
1983 HIS TEST MEASURES TIME FROM 'GO'=1 TO ’FC REG’ >O. 
1884 011240 112737 900020 o0i122 iota: MOVE #0, 28 TSTNUM 
1885 011246 612702 011330 MOV 4S: Re ;SET RETURN PC FROM TIMER 
1886 O1leS2 004767 174142 JSR PC, WRITE WRITE A RECORD 
1887 011256 955 1 INC (RS) tT’ IT 
1888 O1le60 O04767 173746 ISR PC. WAITRDY WAIT POR READY 
1889 011264 102433 BVS 
1890 011268 004767 174126 ISR PC, WRITE ; WRITE SECOND RECORD 
1891 Olle72 O0s215 INC } :SET GO’ BIT 
1892 011274 004767 173722 ISR PC WAITRDY WAIT FOR READY 
1893 011300 102425 BVS g 
1894 011302 O04767 174146 ISR PC. REVRD ;READ REVERSE SECOND RECORD 
1895 011306 005215 INC (RS) ‘SET 'GO’ BIT 
189% 011310 004767 173716 JSR PC. WAITRDY :WAIT FOR READY 
1897 011314 102417 BYS 99$ 
1898 011316 767 174132 ISR PC, REVRD ;READ REVERSE FIRST RECORD 
1899 011322 004767 173026 JSR Pe’ TIMON “TURN TIMER ON 
1900 011326 005215 INC (RS) :SET °GO’ BIT 
1902 011330 005710 1S: TST (RO) ;WAIT FOR FRAME COUNT > 0 
1903 011332 O01002 BNE 
1908 011334 000163 co44H44 IMP IMER(R3) :G0 TO TIMER 8 RETURN VIA Re 
1906 11340 OO47E7 173666 2s: ISR PC, WAITRDY :WAIT FOR READY 


OZTUG-A_TMO2/TULEJ DRIVE FUNCTION TIMER MACY11 27(1006) 
12:38 START OF TESTS 


DOZTUGA.P11 O8-DEC-76 
ee RS (ee 
ig ll ¢3 Bao4B 
1910 
i911 011354 104400 
1912 011356 104000 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 011360 112737 
1927 011366 012702 
1928 011372 004767 

(1) 011376 102530 
1929 011400 005067 
1930 011404 Q12700 
1931 011410 004767 
1932 011414 005215 
1933 Q11416 004767 
1934 Oll42e2 102516 
1935 Q11424 004767 
1936 011430 062767 
1937 011436 005300 
1338 011440 1363 
1940 011442 012700 
1941 011446 004767 
1942 0114Se Q0S21 
1943 Q11454 004767 
1944 011460 1024 
1945 011462 005300 
‘Zi 011464 001370 
ioe Guise ter 
1950 Biia7e i 476 
jas 011502 O0Se215 
1953 011504 004767 
1954 011510 102463 
1955 011512 004767 
1956 911516 004767 
ian 011See 005215 
1953 011524 005765 
1969 011530 001002 
1961 011532 000163 


17313C 


o0002! 001122 
911524 


173740 


174004 
173610 


173340 
000022 


000021 
174002 


173552 


090020 


173734 


173522 
173720 
172632 
ooocoe 
oo4444 


167456 
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BYS 995 

ISR PC. TIMOK 

BR 100$ 
99$: HLT 
100$: SCOPE 
:TEST O21- ISTANCY 
:THIS fest FER MEAS Gere Pine FROM 'GO’=1 TO ’FC REG’ > O. 

"hee iat THE on eeE WRIT aig 7 RECORDS KIT WITH A DELAY FROM I= l- 16 MS 

ETE sy EACH qe ¢ ORDS ARE WRIT 
;PROGRAN RE MRED aft" i wy eG at THIS POINT THe TAPE IS : OPPED ge 
‘THE 16 HE FIRS! WITH BRO SECOND BE TEWEN gO=1 $8 FC > 0 STORED IN ’GAPTBL’ 
:FOR EACH RECORD RE offi AD THE TIME IS VER- 


HR AD. 
IFIED FOR EACH READ 


sBGED BND 


TST0e1: ow 


1$: 


2$: 


4§; 


PLAC 


ok EACH Pit ION 


ae} .@aTSTNUM 


#73, 
PC, .REWIND 


(RS) 
PC WAITROY 


PC DELAY 
418. ,DELTIM 


3 


#17. ,RO 
PC REVRO 


pe WAI TROY 
99$ 
RO 
2$ 
norte. Rl 
PC READ’ 
CRS) 
PC, WAITRDY 
Be TTNON 
(RS) 
FC(RS) 


S$ 
TIMER(R3) 


HAVE BEEN RE ME 
RECORD TIMES ARE VERIFIED THEY ARE AVER- 
"ATIRTEL (BY SCOPE). 


THE ABOVE PROCESS IS RE- 


;SET RETURN PC FROM TIMER 
ND 7 


; F ERROR ON REWIND 
;CLEAR VARIABLE DELAY TIME 
;SET # OF RECORDS TO WRITE 
eet Tec 17. RECORDS 


WAIT FOR READY 


;DELAY BEFORE Bg itiy NEXT REC. 
;SET NEXT DELA 
; DECREMENT RECORDS WRITTEN COUNT 


;SET # OF RECS. TO REVERSE READ 
;REVERSE READ 17. RECORDS 

:SET 'GO’ BIT 

;WAIT FOR READY 


;DECREMENT RECORD COUNT 


;SET ® OF RECORDS TO READ 
ito Tr. fe. ane TABLE FOR TEST 


T G0" err 


;WAIT FOR READY 


;READ NEXT RECORD 
; TURN TIMER ON 
;SET *GO’ BIT 


sunt? FOR FRAME COUNT > 0 
:GO TC TIMER & RETURN VIA R2 


SEQ C071 
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DZTUGA.P11 O8-DEC-76 12:38 START OF TESTS SEG 0072 

1962 

1963 011536 004767 173470 cs: JSR PC, WAITRDY ;WAIT FOR READY 

1964 011542 102446 BYS 

1965 O11544 010421 MOV RY, (R1)+ «STORE TIME IN GAPTBL 

i966 011546 005300 DEC RO ‘DECREMENT & OF RECORDS READ 
1967 011550 001355 BNE 3$ 

1969 011552 105037 001120 CLRB  asGAP ;SET GAP # 0 

1970 O11556 O12e700 ocode0 MOV #16. RO 

197) 011562 012701 001054 MOV #GAPTBL RI 

1973 011566 012104 6S: MOV (R1)+,R4 GET GAP TICK COUNT 

1974 011570 004767 173016 JSR PC, GAPOK “CHECK TI NE 

1975 011574 105237 001120 INCB asaGaAP INCREMENT GAP # 

1976 O11600 122737 900020 001120 CMPB =—s«# 16. ,a#GAP “BRANCH IF ALL gaps NOT CHECKED 
1972 011606 0601367 BNE 6$ 

1979 011810 012700 occoe20 MOV #16. RO : SETUP To AVERAGE GAP SIZES 
1980 011614 012701 o01054 MOV #GAPTBL,R1 -SET PTR TO TABLE 

1981 011620 o0S00e CLR Re ?CLEAR SUM’ REGISTERS 

1982 Oll622 005003 CLR R3 

1983 011624 O62 10¢ 73: ADD (R1)+,R2 :ADD ALL GAP SIZES TOGETHER 
1984 Oil626 S03 ADC R3 

1985 611630 005300 DEC RO 

1986 011632 001374 BNE 7§ 

1987 O11634 012700 oooo04 MOV #4, RO :NOW DIVIDE BY 16. 
1988 011640 006203 9S: ASR R3 :BY SHIFTING 4 PLACES RIGH 
1989 OL ibe 006002 ROR Re 
1990 011644 005300 DEC RO 
1991 O11646 001374 BNE 8$ ; 
1992 O11650 010204 MOV R2,R4 ;MOVE AVERAGED TIMES TO RY 
1993 O1165¢ 004767 172624 JSR PC’ TIMOK ‘CHECK AVERAGED TIMES 

1934 O116S5€ O0040) BR 100s 
1996 O11660 104400 993: HLT 
1997 O11662 104000 : 100$: SCOPE 

1999 ; TEST O22-DUMMY TEST 
2006 he ‘THIS TEST MEASURES NOTHING 
2001 O11664 112737 OO0022 oO01122 tsTO22: MOVB  #22,a"TSTNUM 

903 :TEST 023-DATA TIME (2008P) 

004 :THIS TEST RERSURES TIME FROM 'FC REG’ CHANGES TO ’RDY’=1. 
SOO piers Hae ibeee ooze tS1023: Hove eRe :SET RETURN PC FROM TIMER 
5po8 pte Meas 173426 ISR PC,’ REWIND *REWIND SLAVE 

(1) O11710 102437 BYS 99$ ‘BRANCH IF ERROR ON REWIND 
2008 O11712 004367 173636 ISR R3, TMCMD WRITE 800 WORD RECORD 
2009 O11716 015702 -WORD = WT BUF :SET WRITE {BUFFER ADDRESS 
2019 011720 176340 “WORD 800. “WORD COUNT 
2011 011722 174700 .WORD -1600 ; FRAME 

O12 011724 Oo0060 “WORD WWD WRITE COMMAND 
e013 011726 ooS2i15 INC (RS) :SET 

2015 011730 022710 174700 1$: CMP #-1600. , (RO) ;WAIT FOR FRAME COUNT TO CHANGE 
2cie 011734 o01004 BNE 23 


peruse TM02/T 
OZTUGA.P11 


becbetn?e 12:3 


Sue TTON TIMER ort gave? O9-DEC-76 10:45 PAGE 16-11 


Bias Berges Sn 


ee 
rorururorururor sos Pururu 
tt SE ood aed ol 
SRBSERSew REVS 


104400 
104000 


112737 


104400 


172402 


4444 
0003 


173232 
172474 


000024 
012102 
173304 


000700 
173506 


167240 
040900 


172252 
oo4444 


000003 


173102 
172344 


001122 


000032 


T OF TESTS 
I RR, (RL) 
Bie RRR CR 
BR 
= JSR PC, TIMON 
3$: TST RL) 
BMI § 
IMP TIMER(R3) 
4$: MOV #3,R0 
S$: ASR 
DEC RO 
BNE S$ 
JSR PC, WAITRDY 
v 99$ 
S PC, TIMOK 
BR os 
995: 


HLT 
100$: SCOPE 


-TEST O24-DATA TIME (SS6BPI) 
tsTO24: NOV B  #24,a8TSTNUM 


OV #3$, 
ISR PC, : REWIND 
BYS 99$ 
BIS #BPISS6+NORM11, TC(RS) 
JSR R3, TMCMD 
-WORD WTB 
WORD -2224 
WORD -4448 
WORD WFWD 
INC (RS) 
1S: CMP #-4448. , (RO) 
BNE 
BIT #ERR, (R1) 
BNE 993 
BR ig 
2s: 
JSR PC, TIMON 
3S: TSTB Ss CRA) 
BMI Ye 
IMP TIMER(R3) 
§: MOV #3, RO 
S$: ASR Ry 
DEC RO 
BNE 


S$ 
JSR PC ,WAITROY 


S Be TIMOK 
B 100s 


998: L 


;MONITOR ERROR BIT 


ER ON 
EADY TO SET 


RETURN VIA Re 
DE BY 8 
RIGHT 3 PLACES 


;CHECK TIME 

;SET RETURN PC FROM TIMER 
REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 


‘LOAD TAPE CONTROL REGISTER 
“WRITE 2224. WORD RECORD 


;SET ’GO’ BIT 


;BRANCH WHEN WRITING BEGINS 
;MONITOR ERROR BIT 


;TURN TIMER ON 
; BRANCH WHEN READY SETS 


;GO TO TIMER & RETURN VIA Re 
;SET SHIFT COUNT 


;CHECK TIME 


SEG 0072 
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OZTUGA.P11 O8-DEC-76 12:38 START OF TESTS SEQ cO74 
2070 O12142 104000 100$: SCOPE 
spe -TEST 025-DATA TIME (8008PI) 
2073 012144 112737 oOocdeS 001122 TSTOes: MOVB #025, asTSTNUM 
2974 OlelSe Ole702 Olee32 MOV 135, Ao :SET RETURN PC FROM TIMER 
2075 012156 004767 173154 JSR PC. REWIND ‘REWIND SLA 
(1) Olelbe 102442 BYS 99¢ ; BRANCH IF ERROR ON REWIND 
S bieis2 Opa ae? ree om ate CS nadie SHRITE 3200. WORD RECORD 
78 pig ze nitaaie . WORD Rf aur . : 
2079 Olee00 171600 “WORD -3200. 
2080 Oleed2 163400 .WORD -6400. 
2081 O12204 o00060 "WORD  WFWO 
e08e Ol2c06 o0S215 INC (RS) ;SET 'GO’ BIT 
2084 012210 o22710 163400 1S: CMP #-6400. , \RO) WAIT FOR WRITING TO START 
2085 012214 O01004 BNE 2s 
012216 032711 o40000 BIT #ERR, (RL) :MONITOR ERROR BIT 
2087 oi 222 001022 BNE 99¢ 
2088 Oleced 000771 BR ig 
2089 
2090 012226 23: 
(1) 012226 004767 172122 JSR PC, TIMON TURN TIMER ON 
20391 Olee32 105711 38: TSTB Ss) BRANCH WHEN READY SETS 
2092 Olee3s4 100402 BMI 4§ 
2033 Ole236 000163 oo4444 IMP TIMER(R3) GO TO TIMER & RETURN VIA Re 
2095 012242 012700 o00003 ug: MOY #3,RO SET SHIFT COUNT 
20% 012246 006204 5s: ASR RY 
2097 ct 250 005300 DEC RO 
2098 Oleese 001375 BNE c$ 
2099 012254 004767 172752 JSR PC, WAITRDY 
2100 Ole260 10240 BVS 99$ 
2101 OQlecbe OO4767 172214 ISR PC, TIMOK sCHECK TIME 
ee Olecb6 000401 BR 100$ 
2104 012270 104400 99$: HLT 
e105 012272 104000 100$: SCOPE 
se 12274 1127 00026 001122 j TEST, 026-087 yee reaitte 
518 pt 5Sa2 her ppocss neve Arita G ;BRANCH IF DRIVE ‘NRZ ONLY’ 
Site B15 310 Br 2908 01237 Ny tas ene T RETURN pc FROM TIMER 
sits ptsatg pho PS eit JSR B * REWIND Fa NB SLAY 
113 ee rae 002300 900032 Bye et TC(RS) BENT if sERrOR three 
Sita btSS55 nia 173220 hie R3, TMCMD tWRITE 3200. WORD RECORD 
2115 012334 015702 WORD RFBUF 
oti Bisase ieag00 eRe Ban 
site ptesi anise “WOR 
e119 012344 o05215 INC (RS) ;SET ‘GO’ BIT 
2121 012346 022710 i63400 1S: CMP #-6400. , (RO) BRANCH WHEN WRITING STARTS 
2iee Olesse oO1004 BNE 2s 


DZTUG-A_TMO2/TULEJ yal Na FUNCTION TIMER thd 27(1006) 
12:38 START OF TESTS 


OZTUGA.P11 O8-DEC-76 
123 SY 032711 o40000 IT 
2 ee a : 
l R 
e137 thet 767 171764 _ 
21 : pts. eae 3: fafa 
129 012372 100402 BMI 
2130 012374 000163 oo4444 IMP 
1 1 204 ug: ASR 
gis pte apo PeRY ASR 
e134 b1e404 004767 172622 JSR 
gle SIRE ABEPF rae i 
e137 12416 000401 BR 
2139 012420 104400 99$: HLT 
e140 Ole422 104000 100$: SCOPE 
el Teas Ra 
2144 012424 112737 000027 001122 
cide O1e4aE poiass | preess i 
Sty pt das WORD 
2148 O12444 00000 “WORD 
2149 012446 00000 “WORD 
2150 0124S0 go00e4 “WORD 
2151 012452 004767 171676 ISR 
eibe 012456  00S215 INC 
2154 012460 105711 1S: TSTB 
2155 Ole%62 100402 BMI 
ei5b 012464 000163 oco4444 —. IMP 
2158 012470 OO4767 172536 2S: JSR 
2159 012474 102403 , BVS 
2160 012476 004767 172000 ISR 
elbl Oles02 O00401 BR 
2163 012504 104400 99$: HLT 
iby 012506 104000 i00$: SCOPE 
el6e s TEST ~030 TOPE M 
2168 012510 112737 000030 01122 tst030. 
2169 Ole518 12702 012560 HOY 
e170 1252 4767 172672 JSR 
171 Ole526 05215 INC 
2172 012530 O04767 172476 JSR 
2173 012534 \dese3 BVS 
e174 0125 4337 OOssSsH ISR 
175 01254 0000 WORD 
2176 012544 goco0d “WORD 
2177 Ole546 oo0000 WORD 


A os TIME opt *GO’=1 TO ’RDY’=1. 
Ta’ dsTSTNUM 


ae 
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#ERR, (R1) ;MONITOR ERROR BIT 
598 

ig 

PC, TIMON ; TURN TIMER ON 

i) . S BRANCH WHEN READY SETS 

TIMER(R3) ;GO0 TO TIMER & RETURN VIA Re 

RY ;DIVIDE TIME BY 4 ) 
PC, WAITRDY 
TIMOK ;CHECK TIME 
100$ 


;SET RETURN PC FROM TIMER 
a3, DaTHCHD 


0 

; TURN TIMER ON 

;SET 'GO’ BIT 

;BRANCH WHEN READY SETS 

;GO TO TIMER & RETURN VIA Re 


ERASE 

PC, TIMON 
(RS) 

(R1) 
TIMER(R3) 
PC, WAITRDY 


PC, TIMOK 
100s 


HIS My MEASURES TIME tr *GO’=1 TO ‘RDY’=1. 
OVB #30, d8TSTN 


#1$ Re ;SET RETURN PC FROM TIMER 
Be WRITE ; WRITE A RECOR D 
(RS) :SET GO’ BIT 
FC WAITRDY 
RS, ¥TNCHD 
0 
0 


OZTUG-A TMO2/TULEJ DRIVE FUNCTION TIMER MACY11 27(1006) 
START OF TESTS 


DZTUGA.P11 


2178 


frururururofrorurururururorore 
ot ee A a yk a 
PO OR SSR RRR IOR LSS 


tutu 


O8-DEC-76 12:38 


000026 
pouzee 
U0S215 
105711 

4 

01 
004767 
102403 
004767 
000401 
104400 
004767 


102774 
104000 


171576 


Oo4444 
172436 
171700 


172524 


1$: 


2$: 


99$: 
100$: 


O9-DEC-76 10:4S PAGE 16-14 


Be SIMON 
Re 
(RL) 
$ 
IMER(R3) 
PC WAITRDY 


PC, TIMOK 
100$ 


PC, .REWIND 


ea 


;BRANCH WHEN READY SETS 
;GO TO TIMER & RETURN VIA Re 


;REWIND SLAVE 
;BRANCH IF ERROR ON REWIND 


SEG CO7E 
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O8-DEC-76 12:38 


OZTUGA.P2: 


219 
iS 


i 


Wee 
le 
1 


0127 
018788 


. 


000012 
001374 


000100 


04 
000010 
006764 
001125 


014050 
005724 


167012 
005724 


166140 


001005 


001004 


START OF TESTS 


FINISH: 
1$: 


es: 


3$: 


END: 


1$: 


MOV #10. ,RO 
TYRE CRUE 


1$ 
BIT #SWO6, JSWR 
es 


_ BEQ 
MO S¥DRVNUM, RO 
MOV #SLVNUM; Ri 
MOVB  @#SLVPTR;Re 
IMP @#TYPHOR 
INCB = #SLVNUM 
INC  J#SLVPTR 
CMPB «#8. , J#SLVINUM 
BEQ 
INP S¥BEGIN 
CLRB 


@#SLVNUM 
INCB d*DRVNUM 
CMPB Oceania 
JMP @#BEGIN 
TSTB SUNTFND 


BNE 

TYPE, E.UNIT 
IMP.’ a@#INIT 
HALT 


JSR PC, CKSWR 
RESET 
JM deINIT 
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;SET LINE FEED COUNT 


;SET NEXT SLAVE & 

;AND ITS POINTER 

;BRANCH IF LAST SLAVE (7) 

;BEGIN TEST ON NEXT SLAVE 
AVE #0 


;SET SL # 
;AND INCREMENT DRIVE & 
;AND CHECK IF LAST DRIVE 


;BRANCH IF A UNIT WAS FOUND 


;CHECK FOR CNTL GS 
;RESTART 
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O8-DEC-76 12:38 OF TESTS 


DZTUGA.P11 


229 
sea 
2233 012772 112737 
Se3¢ Q13808 BAGeE 
aoa RLS fasree 
l 7 
Eis sees 
2241 013036 063440 
2e42 013040 000070 
seid 013042 005215 
s5y¢ 013044 022710 
Fah] 013080 101375 
2ec48 013052 004767 
2249 013056 023710 
2eS0 013062 1034 
esek 013064 000163 
2253 013070 012700 
2254 013074 006204 
2eSS 0130 005300 
2eeS6 0131 001375 
2257 0131 004767 
se SLE DEK 
2260 
2261 0131 104400 
eebe 0131 104000 
2263 
2264 
Bee 
e2b9 Bat iy Shae 
2270 013132 aoi7b7 
(1) 013136 
oa ANS Beer 
2273 013154 004337 
Sort BISHES late 
5578 Bistee i ates 
yt H000 
578 013178 0021 


000031 O0ll2e 


pova10 


oosss4 


001440 


171276 
013036 
oo4444 


oooocs 


Tees 


00010 


00SSS4 


g00032 
000010 


001122 


00 


5 012764 012737 012772 001002 


003 
001 
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START 


Ai ae TIMIN Test 
ae "est QUIRE A i, WRITTEN 800 BPI SKEW TAPE 


aKERITS STO31, J¥SCPAD -SET SCOPE POINTER 
Tete f a oie tr TEST- FORWARD =* venetian 
Hoe Tre BY 38 T Pe tRe 8: ApaD 1 1" eBRD. FRAMES) OF TAPE. 
trol: Hoy ; T FROM TIMER 
rs feos iREUrNb VE ssc: 
N REWIN 
Bye {8Q0sNORNIL, TC(RS) iBANGH aL pen ee 
BIS sal, CS2(R5) ‘INHIBIT BUS ADDRESS INCREMENT 
JSR R aaTHCHD ‘READ 32” OF TAPE-FORWARD 
‘Be 
10$:  .WORD 26400. FRAME COUNT 
.WORD ROFWD 
INC (RS) ;SET ’GO’ BIT 
1S: CMP #800. , (RO) WAIT FOR FIRST 800 FRAMES 
BHI 1$ :TO BE READ 
ISR PC, TIMON ;TURN TIMER ON 
2s: CHP alos, (RO) :WAIT FOR READING TO FINISH 
IMP TIMER(R3) GO TO TIMER & RETURN VIA Re 
3S: MOV #5,RO ;DIVIDE TIME BY 32. 
4§: ASR RY 
DEC RO 
BNE 4g 
ISR PC, RHINIT INIT DRIVE 
JSR PC’ TIMOK CHECK TIME 
BR 100$ 
99S: HLT 
100$: SCOPE 
Tet 032-SKEW TAPE SPEED TEST-REVERSE 
THIS pis RE 5 FORWARD 40° o” (32000. FRAMES) OF TAPE, THEN READS REVERSE 
26400. -800. 0. FRAMES) OF TAPE. THE TIME IS THEN DIVIDED BY 
TO GET TIME TO READ i” (800. FRAMES) OF TAPE. 
32k MOVB  #32,a8TSTNUM 
MOV :SET RETURN PC FROM TIMER 
JSR PC, -REWIND REWIND SLAV 
BYS 338 BRANCH IF ERROR ON REWIND 
18 eh yengshoR1, , TC(RS) 
JSR: R3 a’ TMCMD READ FORWARD 32000. FRAMES 
- HORD ROBUF 
;HORD- COUNT 


: nd 
10$: . .WORD 32000. 


a EP Pan 


SEG 0078 


cL ae = 
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OZTUGA.P11 -DEC-76 12:38 START OF TESTS SEG 0079 
228N 013172 023710 013164 1S: CMP 3810S, (RO) 
ge81 013176 101 BHI 1$ 
Soeq Ot pees teisan Joe PR’ DELAY tTATT POR TAPE MOTION TO STOP 

o13210 need 1385 00° 932 BIS PAPEL one. TC(RS) ert 800 BPI 

iep ees 6) Bee eg eens mee 

558 Bi e%0 ieee ; RBaue iREAD BUMPER” 
2289 Mi3e3e 177777 “WORD =1. “WORD COUNT 
2290 13234 11$-  :WORD 26400. :FRAME COUNT 
2291 013236 “WORD ROREV *READ REVERSE 
ee3e 013240 005215 INC (RS) :SET 'GO’ BIT 

12242 022710 001440 2s: MP #800. , (RO) sWAT; FOR FIRST 800 FRAMES 
5Sac Bt Sue tire a 2s ‘TO BE READ 
soa 013250 004767 171100 JSR PC, TIMON ;TURN TIMES ON 
ge38 ot 35e6 023710 013234 38: CHP a#ii$, (RO) ‘WAIT FOR ALL FRAMES TO BE READ 
2500 135p9 000163 904444 She TIMER(R3) ;G0 TO TIMER & RETURN VIA Re 
2302 013266 012700 o00005 4S: MOV #5,RO sDIVIDE TIME BY 32. 
2303 013272 006204 Ss: ASR RY 
2304 013274 DEC RO 
2305S 013276 001375 BNE S$ 
ae tee gave ii eS 
$308 Bt 10 BB04Bi 3 AR 100$ 
2310 013312 104400 99$: HLT 
2311 013314 i008: 
(1) 013314 OO4767 172016 JSR PC, . REWIND ;REWIND SLAVE 
(1) 013320 102774 BVS 99$ BRANCH IF ERROR ON REWIND 
2312 013322 ibaood SCOPE 
e314 013224 000137 012616 IMP aeF INISH 
2316 
2317 


OZTUG-A_TMO2/TULEJ ORIVE FUNCTION TIMER MACY11 27( 1006) 
O8-DEC-75 12:38 PROGRAM 


DZTUGA 
2319 
e320 
e321 


e322 


2323 


2324 


2328 


2326 


2327 


-Pll 


013330 


O00 
a 
WWW) 
R29 


é 


é 


ERP RRS 


bb = bb bb bb bh 
Pate 
mele 


Resse Mer eR PERE RERD 


OOOO OOOO OOOO OOKVHOOOOHOOOOOOO000000 
uw 


ee he he he ae hn be fe be be be pe pe he 


Beene eRe 


013642 


be ee ee 
WWW) 
ny 
y= 


— 
wi 


BSE 


2 


RRRBRSZARR 
seseteree 


031060 


042105 


: 


ti 
—W 
S82 Séée-2 


Mw Oreer 


BAZAAR REE 


RR 
tf 
s 


042116 
040524 
000 


040522 


052040 


047117 
042514 


005015 


ft 


I.REG: 


I. DRVS: 


I.StvS: 


I.DRV: 


I. SKEW: 


I.NRZ: 


M.EOT: 


;ERROR MESSAGES 


E.TRPY: 


E.NCON: 


; OPERAT 
. NAM: 


MESS 


“esate 10:45 PAGE 16-18, 


none MESSAGES 


. SBTTL 
OR INSTRUCTIONS 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


(CR><LF>’TUL6J DRIVE FUNCTION TIMER (OZTUG-A}’ 


(CR><LF>* TYPE FIRST ADDRESS OF CONTROLLER ° 


“TYPE TMO2 DRIVE #’S TO BE TESTED % 


"FOR TMO2 DRIVE ’ 


“%O- TYPE SLAVE #’S TO BE TESTED % 


*SPEED TESTS ONLY? (YES/NO = 1/0)’ 


*"NRZ ONLY? (YES/NO = 1/0)’ 


<CR><LF>*END OF TAPE’<CR><LF> 


«CR><LF>* TRAPPED TO 4’ 


*NO CONTROLLER AT ADDRESS SPECIFIED’<CR><LF> 


SEQ 0080 


ee ee re ee ee ae eee. - 


DZTUG-A_TMO2/TU16J DRIVE FUN 


DZTUGA.P11 


2333 


2334 
2335 
2336 


2337 


2338 


2339 
2340 


2341 


e342 


2343 


2344 


a 


SEROSRBR EERE SS 


V2RSGRERN 


QO DOOO OOOO KOOKOV OOOO KOOVOVOOOOVOOOOO0000000 
ea esresresyesyesyeny 


— 
P 
fru 
&® 


014 
014344 


014346 
014354 
014362 
014370 
014376 


O8-DEC-76 12:38 


OeS0Se 


030115 
053111 


020124 


O44S26 
0S112e 


047440 
043516 
047522 
042515 
051105 
042105 


046511 
20 


O4elee 
021440 


OeS0Se2 


CTION TIMER MACY11 27(1006) O9-DEC-76 10:48 PAGE 16-19 
PROGRAM MESSAGES 


E.NORV: .ASCIZ 


E.NSLV: .ASCII 
E.ORV: .ASCII 
E.NAVA: .ASCIZ 


E.UNIT: .ASCIZ 


E.SFT: .ASCIZ 


E.HDR: .ASCIZ 
E.HDR1: .ASCII 


-ASCIZ 


E.HDRe: .ASCIZ 


E.TIMOV: 


E. TIMEX: 


E.GAP: .ASCIZ 


‘ 


SEG 008! 
*TMO2 DRIVE ' 


“DRIVE ’ 
*O SLAVE ’ 
"CO NOT AVAILABLE FOR TEST’<CR><LF> 


’NO TMO2/TULEJ UNIT FOUND TO TEST’<CR><LF> 


*SOFT ERROR (DATA) ’<CR><LF> 


"TEST # ’ 
* DEVICE ERROR’ <CR><LF> 


*CS1°<HT> WC* <HT> *BA*<HT> “FC*<HT> *CS2°<HT>*DS*<HT> *ER* HT * TC’ <CR> <LP> 


* QUT OF RANGE ERROR’<CR><LF> 


-ASCIZ <CR><LF>* TIMER OVERFLOWED’<CR><LF> 


-ASCIZ <CR><LF>* TIME EXPIRED WAITING FOR RDY’<CR><iLF> 


* GAP # ° 


; TIME DOCUMENT LINES 


C.HORI: .ASCIZ 


* REERALA ALAA AR AAA AA LAA AAA AA RALA LARA ARE AAAAA LAL AARALA ALARA RA LRA RHEL ELE RESTS 


ee 


OZTUG-A_TMO2/TULEI DRIVE Ss ee TIMER MACY11 27(1006) 
08 PROGRAM MESSAGE 


OZTUGA.P11 


2349 


2350 


2351 
ete 


353 
354 


e264 


EECECCCC CE CCC ECC ee CSS ES 


015029 


052117 


042507 


O44S2e 
052105 
053517 


040505 
046517 
004411 


reais 10:45 PAGE 16-20 


** TMO2 DRIVE FUNCTION TIMES- DRIVE # ” 


"O SLAVE # ° 
0 , 
’9 CHAN. SER # ’ 


* *<CR><(LF>’®' (CR><LF> 
*% FUNCTION’ <HT><HT> * TIME(SPECIFICATION) *<HT> * TIME (ACTUAL) *<CR><LF> 


* RANGE=<’* 
*ACTUAL=" 


; TEST Dee te HEADERS 


L YOR2: .ASCII 
L.ORV: .ASCII 
L.SLV: .ASCII 
L.CHAN: .ASCIZ 
L.HOR2: . ASCII 
ASCI 
L.RNG: .ASCIZ 
L.ACT: .ASCIZ 
A.T001: .ASCIZ 
A.T002: .ASCIZ 
A.T003: .ASCIZ 
A.TO04: .ASCIZ 
A.TOOS: .ASCIZ 


** WRITE FROM BOT*<HT> 


** WRITE START’ <HT><HT> 


*% WRITE SHUTDOWN’ <HT> 


*# WRITE SETTLEDOWN’ <HT> 


** READ FROM BOT*<HT><HT> 


SEw 0082 


~- 


FUNCTION TIMER MACY11 27(1006) O9-DEC-76 10:45 PAGE 16-21 
PROGRAM MESSAGES 


A.TO06: .ASCIZ °#* READ START’ <HT><HT> 


OZTUG-A TMO2/TU16S OR 
OZTUGR. P11 O8-DEC-76 12:38 


2365 


a 


SEG 0082 
40 O40SO0S 
" 051101 


2366 0200Se eSee 042101 A.TOO7: .ASCIZ °*%* READ SHUTDOWN’ <HT><HT> 
051440 124 


Pree: 


2367 2101 A.TOIC: .ASCIZ ** READ SETTLEDOWN’ <HT> 


— 
—+£ 
4 
o 
_ 
? 


gogee 
é 
R 


2368 -TOl1: .ASCIZ °* READ REV START’ <HT> 


RER 
x2 2 


2369 O0Si040 O40SOS A.TOl2: .ASCIZ *% READ REV SHUTDOWN’ <HT> 


DHS PNR RES 
8 


2370 042101 A.TO13: .ASCIZ ’# READ REV SETTLEDOWN’<HT> 


UONUNTUNTUNUT UN UI Unni t 
ee 


2371 -TO14: .ASCIZ °% TURN AROUND DELAY F-R’*<HT> 


POrorurorons 
SR ProSIsh 


2372 047122 A.TO1S: .ASCIZ ‘'* TURN AROUND DELAY R-F’<HT> 


Ox 
Ras 
2 
BE 
228 
x 
et 


2373 bee O4S44O OS0101 A.TOl6: .ASCIZ '# GAP SIZE-STOP HALF’*<HT> 


rk 000 
2974 15313 O58 49440 50101 A.TO17: .ASCIZ ** GAP SIZE-START HALF’ <HT> 


11 
2375 020120 A.TO20: .ASCIZ °* GAP SIZE-INTERRECORD’<HT> 


2376 A.TO21: .ASCIZ °** GAP CONSISTANCY’<HT> 


2377 Se O42040 052101 A.T023: .ASCIZ °** DATA TIME-200BPI’<HT> 
S422 020101 O44524 042515 


5 
S 
5 
Sib 031055 oat 050102 


4 
441 0Se ou2o4o OS2101 A.TO24: .ASCIZ °'* DATA TIME-SS68PI*<HT> 
S446 020101 044524 042515 

S4S4 O3e45S 033065 050102 

S462 004511 000 


2378 


OZTUS-A _TMO2/TU16J DRIVE FUNCTION TIMER MACY11 27(1006) 
12:38 PROGRAM MESSAGE 


DZTUGA.P11 O8-DEC-76 
2379 O1S465 ose 
01$472 020101 
015500 034055 
015506 O04S11 
é389 015511 0Se 
015516 020101 
015524 03045 
015532 O44S 
2381 015536 02 
015544 020105 
13898 O44S24 
2382 O15 0200 
15565 0201 
Bieta 046440 
383 D1ee19 020 
Biele 
2384 015625 0 
01563e 020105 
015640 026504 
0iS646 000 
2385 
2386 015647 01S 
2387 O15654 005015 
015662 ©0000 
2388 015663 040 
015670 020075 
2389 015673 01S 
015700 000 
2390 015702 
2391 5702 
5305 015702 bogend 
5343 aoabo! 


O4eS2e 
057012 
053523 
047040 
037412 


053505 
005615 


A. T7025: 


A. TO26: 


A. T027: 


A. TO30: 


A.TO31: 


A. T032: 


L.CNTG: 


L.SWR: 
L.NEW: 


L. QUEST: 


= 


f 
a 10:45 PAGE 16-22 


-ASCIZ ‘' DATA TIME-800BPI’<HT> 
-ASCIZ °* DATA TIME-1600BPI°<HT> 
-ASCIZ °# ERASE GAP TIME’<HT> 
-ASCIZ ‘°% WRITE FILE MARK’ <HT> 
-ASCIZ °* TAPE SPEED-FWD*<HT> 
-ASCIZ °* TAPE SPEED-REV’ <HT> 
-ASCIZ <CR><LF>’ tG’ 
-ASCIZ <CR><LF>’*SWR=’ 
-ASCIZ ° NEW= ° 

-ASCIZ <CR><LF>'?*<CR><LF> 
- EVEN 
ROBUF = 
WTBUF=. 
-BLKW 128. 
. END 


SEG 0084 


= 
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D2ZTUGA.P11  O8-DEC-76 12:38 SYMBOL TABLE SEG cogs 
a 010620 CNTRLO= 000017 E.HOR 014137 L.HOR3 014562 RESVEC= QO0c1C 
aNcTAR’ Ooist2 RNVRED Oue7a0 E-HDRS O14e9 EONS | BIeEea REINTT Desay 
a8 e a 
So? Bbdai6 weet nee E-Nave O1NOI5 LNG o14647 Rr = 000009 
Beate . SBaiae RNIB? 88358 E-Nbay 13783 c78WR 1565 Bt orF= Bonoae 
ATIME OC1012 CNVTO 002634 E-NSLV 013777 MCPE = O20000 R10 =xOo9000 
ATIMTB OO1019 COUNT 001764 E:SFT 014113 MOPE = OOO4O0 R1l  =~000001 
A.T001 014667 CR = OOOO! E/TIME 014275 MMVEC = 000250 Ri2  =~oo0092 
A:TOO2 O14711 CRLF 001374 E'TIMO 014250 MOL = 010000 R13 =000003 
A.T003 014731 CSITM = 00200 E{TRPY 013677 MR = 000024 RI¥ =”000004 
3 a a Sg A” 
a 1B Sistel Gas SbTNbe Fee, Solon neha, 015530 Stove > 104000 
@:7010 015062 DCONST 003036 FMT = GO0020 NED = 010000 OWN = 900020 
@:T011 015105 DELAY 004740 FPEVEC= 000244 NEF = O04000 SKEKTS 012764 
@:TO12 O15127 OELAYY 004770 FRMCNT= 177400 = 004000 SLA = OOO001 
A:TO13 O1s154 DELTIM 001114 WOSPC 005472 = 000000 SLAVES 006370 
B-T014 015203 DIGTAB 001132 GAP. 001120 NORM11= 000300 SCR = 177774 
B-1O1s 15234 tes nusoz6 GAPOK Oo4612 NRZFLG_ OOLi27 sivava OO 144 
s = = UU aia 
aT i? O:831 Bb = AgO4OD oT Bbd081 at fa.o 001 116 sLVPrh Gb Ode 
cit Hs RARE ee P= cB, il 
° = = UU 
A’TO24 O1544] Beyer Bored the = pooDtA oR. = BeSTBG anAce | BbT a: 
A:TO25 015465 Y = 000200 IE = O00100 OUT  O02240 SPACE2 001407 
T1026 015511 DRYCLR= 000010 ILF = 000001 OQUTBUF= 0057 SPCFWO= 00003 
8.1027 015536 $ "= OuOtle Ik = 900008 OUTGAP 00314 SPCREV= 000032 
A: TO31 pteees TE = ote th VAE= eaytat SURE = Spat Tg ace = arte 
@.TO32 O15625 DVA = IT 005724 = 000020 STIMTB OO1416 
Aig = OOO400 BVO = p00000 IOTVEC= 000020 PEFLRC= 000200 STKPTR= O00 
Ql? = 001000 DV1 = O00001 = 000100 = QO0040 SUSWR 005730 
BA = QOO004 Bv2 = O00002 ITCNT 001121 PE1600= 002000 Sur O10 
AI = O00010 OV3 = 000003 1.ORV. 013625 FVEC = 000024 SUREG 900176 
BEGIN 006764 ova = QO0004 T{DRVS 13444 = 002000 Woe = 00010 
ate a ee a 
core ceca ihiee Roepe = ree 
pT EEP= ooeG NOE C= 00030 - = 00012 PLKVEC= 000104 Swil = oo4ood 
BPI800= 001900 END 2732 CKS = 177546 PRGFLG 001124 Sui3 = Se0009 
BPTVEC= GOOO14 FOT = o02000 CKVEC = 000100 EU's Ode000 Sul4 = o4000 
CDM11 = 000320 ER = 000014 (PB = 177516 = 177776 5 = 100000 
i PS 
= ERR has C{CHAN O14543 RDFWD = vita = nee 
cKSUR 70 ERRTRP 003650 C{CNTG 015647 ROREV = 000076 TCRLF 002360 
cle = 900040 ERRVEC= 000004 C{ORV. 014526 ROS 1766 TEMPST O01762 
CNTLU 00203 E-D 005 C'HDRI 014346 ROY = o002 


LU 0 00 6 
CNTRLC= OC0003 E.GAP 014336 L.HORe O14461 READ 005436 TIMER OQO4444 


? 
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OZTUGA.P11 O8-DEC-76 12:38 SYMBOL TABLE SEG cose 
TIMERS = DO44O TeTob1 007336 teroea O12614 UGREAK= 17997 SEALE DOeae 
HR BB F31b8s 687360 Fetb8e Bige74 tN eno" Bot 7ee atte. BBRaLT 
tHe = Sosee2 Tero0e DOFeoe 127099 btseid WATTRD Set, 885813 
TKISR 003606 TST006 007762 TST031 012772 WAITTI 005234 $TPB  O0e32 
TKS = 177560 TST007 O10046 TSTO32 013120 Wc. = QO0002 STPFLG O02316 
TKVEC = 000060 TSTO10 O10146 THIN odeev2 WCE = OH0000 Stes _ 002320 
re Boeeeg Terps Biose9 Ttind —BoBB%e WEHKR = BObDee "at ~ BoseSs 
sis he. sttséRTR HOB IREN Teen’ = pppaee HEN = gppgee “RESTO D060 
Te = Aree TefGie Bis Vere Gusts wRTTE Qoeses Bie, Masse 
TRAPVE= OOO0S4 Tero20 11240 TYPE DoDuTS WRT.BK 008512 “TYPE 002332 
= 040000 TS5TO21 011360 TYPFLG 001126 WTBUF = 015702 
TRIVEC= OO0014 TS§TOe2 O11 TYPHDR 007210 §CHARC 002324 


- ABS. 016302 000 

ERRORS DETECTED: 0 

DEFAULT GLOBALS GENERATED: 0 
DZTUGA, OZTUGA+DZTUGA.P11 
RUN-TIME: 1 


U : 1 
CORE USED: 7K (13 PAGES) 


JO 


